Grafik => Zellposition unabhängig
20.06.2013 12:28:20
Albert
ich such bereits den zweiten Tag in Folge eine Möglichkeit, dass man den Status eines Bild von "Nur Zellposition abhängig" auf "Von Zellposition und -größe unabhängig" umstellen kann.
Nachfolgenden Code hab ich zum Testen verwendet... Leider ohne Erfolg!
Sub test()
If hochformat = True Then
If TypeName(Selection) = "Picture" Or TypeName(Selection) = "Grafik" Then 'nur _
wenn Grafik markiert ist :
With Selection.ShapeRange
.LockAspectRatio = True
'Breite und Höhe der Grafik bitte in Klammer hier anpassen :
.Top = rngLocation.Top
.Left = rngLocation.Left + 30
.Height = Application.CentimetersToPoints(9)
.Width = Application.CentimetersToPoints(7.25)
.Placement = xlMove
End With
End If
End Sub
A.