Office: (Office 2019) Grafik per Makro ändern

Hallo, ich möchte eine Reihe von eingefügten Bildern beschneiden, damit der schwarze Rand entfernt wird:

Dazu gehe ich über >Grafik formatieren >Bild <Zuschnitt und verändere die benötigten Bereiche wie X-Offset, Y-Offset, Breite, Höhe nach Bedarf.

Gibt es eine Möglichkeit, das bei vielen Bildern per Makro zu erledigen, also Bild markieren – Makro ausführen
Die Änderungen könnte ich ja nach Bedarf im Makro korrigieren.
Ich habe keine Möglichkeit gefunden, bei markierter Grafik ein Makro aufzuzeichnen.

 

Hallo Günther,

wie soll das Makro denn erkennen, welches die "richtigen" Offset-Werte sind und welche Breite/Höhe benötigt wird?
Besser du bereitest die Grafiken mit einem Grafikprogramm auf.

Knobbi38

 

Hallo,

auch ich habe Zweifel, was ein Makro bringen soll, wenn du bei jedem Bild neue Zuschnittsmaße festlegen musst. Wie auch immer: Das Beschneiden eines markierten Bildes per Makro geht beispielshalber so:

Für Inlineshapes (Textfluss Mit Text in Zeile):

Code:

Sub bild_beschneiden()
    [CODE]With Selection.InlineShapes(1).PictureFormat
        .CropBottom = 20
        .CropTop = 10
        .CropLeft = 30
        .CropRight = 25
    End With
End Sub

Bei Shapes (alle anderen Textumbrüche) muss die erste Zeile lauten:
With Selection.ShapeRange.PictureFormat
Beachte auch den Hinweis hier: PictureFormat.CropLeft-Eigenschaft (Word)

Das Aufzeichnen von Grafikmanipulationen per Makrorekorder hat übrigens letztmalig in Word 2003 funktioniert.

 

Hallo Gerhard,
super, danke für den Code. Das hilft mir weiter.
Habe auf das Makro eine Tastenkombination gelegt und kann so nacheinander alle benötigten Bilder auf die neue Größe einrichten
Deutlich schneller als über den umständlichen "normalen" Weg, bei dem ich die Werte jedes mal neu eingeben muss.

 

Moin allerseits,

natürlich auch Euch und allen anderen (nicht nur) hier herzlichst ein friedliches, gesundes und zuversichtliches 2026!

Wenn es denn in irgendeiner Bildeigenschaft ein Kriterium gäbe, nach dem ein Makro die zu kastrierenden Bilder erkennen könnte, böte sich dann noch ein Schleife an!

Dann könnten (verdammt! mir gehen die Ös aus!!) gleich (zumindest einen Großteil, wenn nicht) alle Bilder auf einen Klick erledigt werden.

Grüße