Страницы: 1
RSS
Создание объектов Shape с помощью переменных
 
Доброго времени суток!
Можно ли создавать объекты Shape макросом с помощью переменных? Например:
я задаю две переменные a = ширина и b = высота, присваиваю им значения из ячеек.
А дальше
ActiveSheet.Shapes.AddShape(msoShapeDonut, 150, 150, a, b).Select
Но выдает ошибку.
Можете, пожалуйста, подсказать где ошибка? :oops:  Или данная функция не осуществима? :cry:  
 
lukandaf, у меня вот так работает:
Код
Sub generateShape()
    Dim ws As Worksheet, sh As Shape
    Set ws = ActiveSheet
    With ws
        shWidth = .Cells(2, 7).Value
        shHeight = .Cells(3, 7).Value
        
        Set sh = .Shapes.AddShape(msoShapeDonut, 150, 150, shWidth, shHeight)
        sh.Select
        
    End With
End Sub
In GoTo we trust
 
Спасибо! ;)  
Страницы: 1
Наверх