ich habe in einem Excelsheet ein Shape. Dieses Shape würde ich gerne in einen Kommentar in die Zelle A3 einfügen.
Gibt es eine Möglichkeit dies ohne die Zwischenspeicherung in eine Bilddatei zu realisieren?
Viele Grüsse
Chris
Sub Shape()
Dim ws As Worksheet, rg As Range, shp As Shape
Set ws = ThisWorkbook.Worksheets("Tabelle1")
With ws
Set rg = ws.Cells(3, 1)
Set shp = .Shapes.AddShape(msoShapeOval, rg.Left + 1, rg.Top + 1, _
rg.Width - 2, rg.Height - 2)
Set rg = ws.Cells(5, 2)
'usw.
End With
Set rg = Nothing
Set shp = Nothing
Set ws = Nothing
End Sub
Gruss