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
GrussDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen