Shape Objekt drehen
20.01.2017 12:20:22
Oisse
mit folgendem Code füge ich ein Bild ein:
Call ActiveSheet.Shapes.AddPicture(Filename:=lPathCol & lPicNameCol, _
LinkToFile:=msoTrue, SaveWithDocument:=msoFalse, _
Left:=Columns(lPicColA).Left, Top:=Rows(int_Counter).Top, _
Width:=Application.CentimetersToPoints(bb), Height:=Application.CentimetersToPoints(bh))
Das funktioniert auch bestens.
Nun möchte ich genau dieses eingefügte Bild drehen.
Wie muss hier der Code weitergehen?
Ich weiß die Spalte, in der sich das Bild befindet und auch die Zeile.
Aber mit:
ActiveSheet.Shapes.Range("F" & int_Counter).Rotation = ActiveSheet.Shapes.Range("F" & int_Counter).Rotation + Grad
funktioniert es nicht, weil er einen Namen oder einen Index erwartet.
Wie bitte komme ich da dran, oder welche Gesamtlösung bietet sich hier?
Gruß Oisse
Anzeige