Вопрос : Может соединение частное значение в диаграмме первенствовать к другой диаграмме

Я имею диаграмму, и я хочу соединить каждое одиночное частное значение на той диаграмме для того чтобы принести вверх другую диаграмму, это по возможности? class=

Ответ : Может соединение частное значение в диаграмме первенствовать к другой диаграмме

Вы можете создать случаи для щелкать пунктом на диаграмме путем использование модуля типа.

Workbook образца имеет названный модуль типа chtClass с подводной лодкой случая MouseDown. Путем использование метода GetChartElementID, мы можем обусловить который пункт был щелкнут. Отборный блок случая может после этого соединить к поддерживая диаграмме.

От прошлого опыта, получать модули после того как типа я setup правильн может быть немногой каверзным. Я всегда забываю установить имя типа в форточке свойств в редакторе VBA, например.

Брэд
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

'Следующий Кодий идет в chtClass модуля типа названные листом. Вы должны установить имя модуля диаграммы в форточке свойств.
Общественное cht WithEvents как диаграмма


Приватное Sub cht_MouseDown (кнопка ByVal как длиной, перенос ByVal как длиной, _
                            ByVal x как длиной, ByVal y как длиной)
PointClick x, y
Подводная лодка конца

Приватное Sub PointClick (ByVal x как длиной, ByVal y как длиной)
Тусклое ElementID как длиной
Тусклое Arg1 как длиной
Тусклое Arg2 как длиной

cht.GetChartElement x, y, ElementID, Arg1, Arg2

Если ElementID = xlSeries после этого
    Отборным случаем Arg2    'Arg1 будет индекс серии, Arg2 будет индекс пункта
    Случай 1
        Листы («Chart1»). Активируйте
    Случай 2
        Листы («Chart2»). Активируйте
    Случай 3
        Листы («Chart3»). Активируйте
    Закончите отборное
  Закончитесь если

Закончите подводную лодку


'Следующий Кодий идет на регулярно лист модуля
Глобальное oCht как новые chtClass

Sub ActivateChart1Events ()
Установите oCht.cht = рабочий лист («Sheet1») .ChartObjects (1).Chart
Закончите подводную лодку

Sub DeactivateChart ()
  Установите oCht.cht = ничего
Закончите подводную лодку


'Следующий подводная лодка идет в форточку Кодего ThisWorkbook
Sub Workbook_Open ()
ActivateChart1Events
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us