AW: Grafik zurechtschneiden
27.10.2011 00:04:12
fcs
Hallo Melek,
da kommt es excel-intern scheinbar zu irgendeiner Umnummerierung der Shape-Objekte.
Das Makro, das bei mir bei der Erstellung der Testdatei funktionierte, zeigte jetzt nach dem Öffnen auch einen Laufzeitfehler an.
Ich hab es jetzt etwas angepasst und einen Test auf den Shape-Objekt-Typ eingebaut.
Gruß
Franz
'Erstellt unter Excel 2007
Sub Makro2()
' Makro2 Makro
Dim objShape As Shape, wks As Worksheet, iShape As Long
Set wks = ActiveSheet
iShape = wks.Shapes.Count
Do Until iShape = 0
Set objShape = wks.Shapes(iShape)
With objShape
If .Type = msoPicture Then
.Rotation = 90
With .PictureFormat
.CropLeft = 100
.CropTop = 100
.CropRight = 50
.CropBottom = 50
End With
'Exit Do 'Zeile aktivieren, wenn nur das Bild mit der _
höchsten Shape-Index-Nummer angepasst werden soll.
End If
End With
iShape = iShape - 1
Loop
End Sub