Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Shape Objekt drehen

Shape Objekt drehen
20.01.2017 12:20:22
Oisse
Hallo Zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shape Objekt drehen
20.01.2017 13:07:21
Tino
Hallo,
versuch mal so, nicht getestet
Dim oShape As Shape
Set oShape = 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))
oShape.Rotation = oShape.Rotation + Grad
Gruß Tino
AW: Shape Objekt drehen
20.01.2017 13:23:04
Oisse
Hallo Tino,
danke, klappt einwandfrei. Super!
Herzlichen Gruß
Oisse
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige