Hey, wenn ich über Objekt einfüge z.B. eine PDF auswähle bette ich diese als Symbol ein. Jetzt möchte ich ein Makro erstellen, dass dieses Symbol in der Zelle zentriert. Im Internet habe ich eines für Bilder gefunden, das lässt sich aber nicht anwenden. Habe versucht es umzuschreiben, komme aber nicht weiter. Kann mir jemand helfen?
Funktionierender Makro für Bilder:
Sub CenterPicture()
Dim pct As Picture
Dim iLeft, iTop, iWidth, iHeight
If ActiveSheet.Pictures.Count = 0 Then
Beep
MsgBox "Keine Grafikdatei gefunden!"
Exit Sub
End If
With ActiveCell
iLeft = .Left
iTop = .Top
iWidth = .Width
iHeight = .Height
End With
Set pct = ActiveSheet.Pictures(1)
pct.Left = iLeft + iWidth / 2 - pct.Width / 2
pct.Top = iTop + iHeight / 2 - pct.Height / 2
End Sub
Mein Versuch, es umzuschreiben. Gescheitert.
Sub CenterObject()
Dim pct As Object
Dim iLeft, iTop, iWidth, iHeight
If ActiveSheet.Objects.Count = 0 Then
Beep
MsgBox "Keine Grafikdatei gefunden!"
Exit Sub
End If
With ActiveCell
iLeft = .Left
iTop = .Top
iWidth = .Width
iHeight = .Height
End With
Set pct = ActiveSheet.Objects(1)
pct.Left = iLeft + iWidth / 2 - pct.Width / 2
pct.Top = iTop + iHeight / 2 - pct.Height / 2
End Sub
|