Wie kann ich die Objektpositionierung einer Grafik dauerhaft änder

[PeterPolenz]

Normalerweise steht unter "Größe und Eigenschaften" einer Grafik die
Objektpositionierung immer auf "Nur von Zellposition abhängig".

Ich muss viele Grafiken einbinden, frage mich aber, wie ich die Eigenschaft
dauerhaft auf "Von Zellposition und -größe abhängig" stelle.

Ansonsten müsste ich das bei jeder einzelnen Grafik neu einstellen.

Danke für die Mühe!

[Alexander Wolff]

Weise doch einfach

Sub MoveAndSize()
Selection.Placement = xlMoveAndSize
End Sub

einen Shortcut zu. Als Selection hast Du davor die Grafik einfach
angeklickt - bzw. das ist sie schon, wenn sie gerade eingefügt wurde.
--
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

[Beverly]

Hi Peter,

mit dem folgenden Makro kannst du nicht nur eins, sondern alle eingefügten
Bilder entsprechend positionieren:

Sub Fixieren()
Dim shBild As Shape
For Each shBild In ActiveSheet.Shapes
If shBild.DrawingObject.ShapeRange.Type = msoPicture Then
shBild.Placement = xlMoveAndSize
Next shBild
End Sub

Bis später,
Karin
http://beverly.excelhost.de/