Geheimwaffe: Makro

Auf das schon ältere Makro sind wir hier gestossen. Es funktionierte bei unserem Test unter Office 365 weiterhin. Sie müssen das Makro innerhalb der Tabelle nicht einmal speichern; es reicht, wenn Sie es einmal ausführen. Und das geht sehr einfach.

Drücken Sie Alt+F11 zum Öffnen des VBA-Fensters. Darin erscheint ein leeres grösseres Unterfenster für den Code. Fügen Sie folgenden Code ein; passen Sie allenfalls den Tabellennamen an, falls der nicht «Tabelle1» lautet:

Public Sub Center_Picture()
    Dim objShape As Shape
    For Each objShape In Tabelle1.Shapes
        With objShape
            If .Type = msoPicture Then
                .Left = .TopLeftCell.Left + .TopLeftCell.Width / 2 - .Width / 2
                .Top = .TopLeftCell.Top + .TopLeftCell.Height / 2 - .Height / 2
            End If
        End With
    Next
End Sub

Pflanzen Sie im Code-Fenster den Cursor z.B. mit Ctrl+Home (Strg+Pos1) ganz an den Anfang. In der Symbolleiste des VBA-Fensters sehen Sie ein kleines grünes Dreieck für Sub/UserForm ausführen, was bedeutet: Abspielen. Klicken Sie es an. Und – voilà – die Bilder sind in ihren Zellen zentriert.

Wenn Sie wollen, können Sie den Makro-Code im VBA-Fenster wieder löschen. Die Bilder bleiben zentriert.

Und LibreOffice? Für LibreOffice Calc haben wir keine vernünftige Möglichkeit zum automatischen Zentrieren von Bildern in einer Zelle gefunden. Sie müssten jedes per Maus ungefähr in die Mitte rücken. Hier empfehlen wir, zum LibreOffice Writer zu greifen. Auch in diesem können Sie eine Tabelle erstellen und haben bessere Gestaltungsmöglichkeiten. Im Writer lässt sich ein Bild problemlos via Rechtsklick/Ausrichtung zentrieren.