Alle Bilder in Microsoft Word gleich groß machen

Es ist gar nicht so einfach, in Microsoft Word alle Bilder in einem Dokument gleich groß zu machen. Man kann (zumindest in meiner aktuellen Version von Office 365*) nicht mehrere Bilder selektieren (z.B. mit STRG+Klick oder SHIFT+Klick) und über Bildformat -> Größe Höhe und Breite auf einheitliche Werte setzen.

Daher habe ich mir fix ein kleines Makro erstellt, das diese Aufgabe löst.

Sub MacheAlleBilderGleichGross()   
For Each objImageShape In ActiveDocument.InlineShapes   
    objImageShape.Height = CentimetersToPoints(5)   
Next   
End Sub

Die 5 als Parameter von CentimetersToPoints() steht dabei für 5 Zentimeter.

Über Stefan

Polyglot Clean Code Developer

Ein Kommentar

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

To create code blocks or other preformatted text, indent by four spaces:

    This will be displayed in a monospaced font. The first four 
    spaces will be stripped off, but all other whitespace
    will be preserved.
    
    Markdown is turned off in code blocks:
     [This is not a link](http://example.com)

To create not a block, but an inline code span, use backticks: 

Here is some inline `code`.

For more help see http://daringfireball.net/projects/markdown/syntax