wie bild per vba verschieben? (entweder zur aktuellen position oder zum linken rand.)

[michlchen]

servus

wie verschiebe ich ein bild mit vba.

habe ein bild "logo" und will dies auf einigen blättern wieter nach
rechts verschieben. dabei wäre egal, ob relativ zur aktuellen position
oder ob fest zum linken rand.

suche jetzt nur die richtigen befehle, das bild anzusprechen.
aufzeichnung mit O07 hat nicht geklappt.

danke (claus *g*).

[Claus Busch]

Hallo Micha,

Am Thu, 27 Aug 2009 06:02:26 -0700 (PDT) schrieb michlchen:

> habe ein bild "logo" und will dies auf einigen bl�ttern wieter nach
> rechts verschieben. dabei w�re egal, ob relativ zur aktuellen position

> oder ob fest zum linken rand.

z.B. so:
Dim ws As Worksheet
Dim shp As Shape

For Each ws In Worksheets
For Each shp In ws.Shapes
If shp.Name = "Logo" Then
'Bild um 200 Pixel nach rechts versetzen
'shp.Left = shp.Left + 200
'Bild auf Links=400 Abstand vom Rand setzen
shp.Left = 400
End If
Next shp
Next

Mit freundlichen Gr�ssen
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

[michlchen]

hab mir jetzt mal mit 2003 aufgezeichnet und da kam in etwa sowas hier
raus...

Sheets("TMP").Shapes("Picture_Spass").ShapeRange.IncrementLeft 100

leider geht das irgendwie nicht.

ok. ich habs,...
Sheets("TMP").Shapes("Picture_Spass").Select
Selection.ShapeRange.IncrementLeft 100

geht.