Вставка изображения в определенную координату листа - VBA

Формулировка задачи:

Доброго времени суток! Имеется код такого вот вида:

Sub вставитьpng()
 
Dim r As Range
Set r = Range(A1)
With ActiveSheet.Pictures.Insert("E:\file.png")
    .Top = r.Top
    .Left = r.Left
End With
 
End Sub

Мне необходимо, чтобы вместо диапазона, изображение вставлялось в определенную координату(Например Point(30, 40)) Как объяснить этому глупому компьютеру, что мне от него нужно?

Решение задачи: «Вставка изображения в определенную координату листа»

textual
                            Листинг программы 
                        
                                .Top = application.CentimetersToPoints(2) '2 см

Оцени полезность:

9 голосов , оценка 4.111 из 5

Похожие ответы