VBNet - Форум - Диаграмма

Вопрос: Диаграмма Добавлено: 02.02.05 16:07

Автор вопроса: SHDZ | ICQ: 209382104

В листе Екселя добавил диграмму:
Dim diagr As Chart
Charts.Add
Set diagr = ActiveChart
Заполнил данными, отформатировал.
А как ее сдвинуть после заполнения, в смысле переместить в нужное место?
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Ann_Boo Вопросов: 0 Ответов: 6	Профиль \| \| #1	Добавлено: 02.02.05 16:21
	Не пробовал использовать IncrementLeft, IncrementTop? Ответить

Номер ответа: 2 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #2	Добавлено: 02.02.05 16:27
	А как?, Что-то типа: ActiveSheet.Shapes("Диагр. 1".IncrementLeft 385.5 Это получил когда макросом тягал диаграмму, но у меня их создается много, и глючит на имени ("Диагр. 1" говорит мол нету такой, пробовал пару строк выше задать имя, до наполнения данными: diagr.Name = "Диагр. 1" Если эту строку ставить до формирования диаграммы, то проходит, (эту строчку) а если после - аутомайшен эрор. Так вот поставил до, ее отработало, а при попытке двигать ее пишет - нету такого Ответить

Номер ответа: 3 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #3	Добавлено: 02.02.05 16:51
	Не, сдвинулась, таже строка что и показывал, глюк какойто был Ответить

Номер ответа: 4 Автор ответа: Ann_Boo Вопросов: 0 Ответов: 6	Профиль \| \| #4	Добавлено: 02.02.05 17:31
	Какая именно строка - та, что по автомакросу записана или при присвоении diagr.Name="Диагр. 1"? (интересно на будущее) Ответить

Номер ответа: 5 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #5	Добавлено: 02.02.05 18:01
	Top = Top + 230 Sheets(SheetsName).Select Charts.Add Set diagr2 = ActiveChart ActiveChart.Name = "Диагр. " & hhh diagr2.Name = "Диагр. " & hhh diagr2.Activate diagr2.ChartType = xl3DPieExploded diagr2.SetSourceData Source:=Sheets(SheetsName).Range(inputFormulaA & ":" & inputFormulaEndA & "," & inputFormulaD & ":" & inputFormulaEndD) diagr2.Location Where:=xlLocationAsObject, Name:=SheetsName ActiveSheet.Shapes("Диагр. " & hhh).IncrementLeft 753 ActiveSheet.Shapes("Диагр. " & hhh).IncrementTop -85 + Top hhh = hhh + 1 Ответить

Номер ответа: 6 Автор ответа: Ann_Boo Вопросов: 0 Ответов: 6	Профиль \| \| #6	Добавлено: 03.02.05 08:42
	Спасибо Ответить

Страница: 1 |