VBA: работа с фигурами

[Kuraj]

Здравствуйте)
Кто знает материал для работы в VBA с созданием фигур? Пытался путём записывания макроса создавать фигуры не получилось макрос был чист...

В принципе надо что бы рисовалась стрелка обычная от 1 ячейки до другой.

[EducatedFool]

Почитайте эту тему: http://www.programmersforum.ru/showthread.php?t=33484

Там есть примеры кода для рисования эллипсов и стрелок:

    Dim sh As Worksheet: Set sh = ActiveSheet
    With sh.Shapes
        .SelectAll: Selection.Delete
        .AddLine(dx * 0.5, dy, dx * 1.5, dy).Line.EndArrowheadStyle = msoArrowheadTriangle
        .AddTextEffect msoTextEffect6, "x", "Arial", 10#, msoFalse, msoFalse, dx * 1.5, dy + 5

        .AddLine(dx, dy * 1.5, dx, dy * 0.5).Line.EndArrowheadStyle = msoArrowheadTriangle
        .AddTextEffect msoTextEffect6, "y", "Arial", 10#, msoFalse, msoFalse, dx + 5, dy * 0.5


        Set o = .AddShape(msoShapeOval, dx + x - w / 2, dy - y - h / 2, w, h)
        With o
            .Fill.ForeColor.RGB = vbRed
            .OnAction = "MoveEllipse"
            .Name = "NewOval"
            .Fill.Visible = msoFalse: .Line.Weight = 1.5: .Line.Style = msoLineSingle
            .IncrementRotation -1 * r
        End With
    End With

[Kuraj]

Вот спасибо. Рисует по координатам но вопрос был немного другой.. может ли стрелка рисоватся например от ячейки а1 до а3 к примеру.. или есть функция для нахождения местоположения угла ячейки например или её середины?

[EducatedFool]

может ли стрелка рисоватся например от ячейки а1 до а3 к примеру..

Да запросто:

Sub ПримерИспользования()
    НарисоватьСтрелку [a6], [d1]
    НарисоватьСтрелку [a9], [d10]
End Sub

Sub НарисоватьСтрелку(ByRef Ячейка1 As Range, ByRef Ячейка2 As Range)
    BeginX = Ячейка1.Left + Ячейка1.Width / 2
    BeginY = Ячейка1.Top + Ячейка1.Height / 2
    EndX = Ячейка2.Left + Ячейка2.Width / 2
    EndY = Ячейка2.Top + Ячейка2.Height / 2

    ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

Пример файла:

[Kuraj]

Теперь вообще спс огромное)) Уже разобрался)
Вот последний вопрос..
Заметил на форуме часто используют картинку с примерами файла разными..следовательно где то есть сайт с уже готовыми примерами не подскажите ссылку? Заранее благодарен)

[IgorGO]

Заметил на форуме часто используют картинку с примерами файла..следовательно где то есть сайт с уже готовыми примерами

это заблуждение.
все основные примеры здесь