Вот так работает:
Sub Grahp()
Dim x As Variant
x = 155
Dim y As Variant
y = x ^ 2
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(x, y, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(0, 0, 255)
End With
End Sub
________________________________________________
А я хочу, например, вот так из ячейки С1 присвоить значение:
Sub Grahp()
Dim x As Variant
x = Range(Cell("C1")).Value
Dim y As Variant
y = x ^ 2
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(x, y, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(0, 0, 255)
End With
End Sub
_________________________________________________
И вообще, в целом. Я пытаюсь автоматизировать построения графика. Там линии да дуги. Все по координатам. Т.е. ничего особо сложного, ну просто надоело его постоянно в MS Visio перестраивать. Взял книжку по VBA и пытаюсь разобраться. Хотелось бы конечно средствами Visio его строить, а данные из Excel брать. Но что-то про это мало пишут. Вот только например тут: . Но я ихний код пробовал запускать. Не вышло. Думаю, потому что бибилотеку Microsoft Visio Type Library не правильно подключил. У меня 2007 Visio. Там библиотеки по другому нумеруются...
Ладно, может фиг с ним с Visio. В Excele ведть тоже можно объектом Shape управлять и рисовать что-нибудь несложное по координатам, ведть так?
Подскажите что-нибудь по этому поводу. Заранее спасибо!
Sub Grahp()
Dim x As Variant
x = 155
Dim y As Variant
y = x ^ 2
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(x, y, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(0, 0, 255)
End With
End Sub
________________________________________________
А я хочу, например, вот так из ячейки С1 присвоить значение:
Sub Grahp()
Dim x As Variant
x = Range(Cell("C1")).Value
Dim y As Variant
y = x ^ 2
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(x, y, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(0, 0, 255)
End With
End Sub
_________________________________________________
И вообще, в целом. Я пытаюсь автоматизировать построения графика. Там линии да дуги. Все по координатам. Т.е. ничего особо сложного, ну просто надоело его постоянно в MS Visio перестраивать. Взял книжку по VBA и пытаюсь разобраться. Хотелось бы конечно средствами Visio его строить, а данные из Excel брать. Но что-то про это мало пишут. Вот только например тут: . Но я ихний код пробовал запускать. Не вышло. Думаю, потому что бибилотеку Microsoft Visio Type Library не правильно подключил. У меня 2007 Visio. Там библиотеки по другому нумеруются...
Ладно, может фиг с ним с Visio. В Excele ведть тоже можно объектом Shape управлять и рисовать что-нибудь несложное по координатам, ведть так?
Подскажите что-нибудь по этому поводу. Заранее спасибо!
