☰

So wenden Sie in Microsoft Word 2007 eine allgemeine Größe auf Bilder an

tag-icon • tag-icon microsoft-word images microsoft-word-2007
So wenden Sie in Microsoft Word 2007 eine allgemeine Größe auf Bilder an

Ist es möglich, allen Bildern in Microsoft Word 2007 während der Bearbeitung eine bestimmte Größe zuzuweisen? Wenn ja, wie funktioniert das? Danke

Antwort1

Hier ist dieses tolle Makro aus diesemQuelle. Ich habe es hier eingefügt, falls der referenzierte Link abläuft. Sie müssen im Grunde eine Verknüpfung zuweisen und dieses Makro speichern und dannalleBilder im Dokument (indem Sie zu „Stile“ gehen und den zugewiesenen Bildstil auswählen).

Sub AllPictSize()
    Dim PecentSize As Integer
    Dim oIshp As InlineShape
    Dim oshp As Shape

    PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)

    For Each oIshp In ActiveDocument.InlineShapes
        With oIshp
            .ScaleHeight = PercentSize
            .ScaleWidth = PercentSize
        End With
    Next oIshp

    For Each oshp In ActiveDocument.Shapes
        With oshp
            .ScaleHeight Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
            .ScaleWidth Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
        End With
    Next oshp
End Sub

Führen Sie das Makro auf den ausgewählten Bildern aus und geben Sie einen Prozentsatz andas größte Bildunter den ausgewählten Bildern. Der Standardwert ist 75 %, was bedeutet, dass ALLE Bilder auf 75 % des größten Bildes verkleinert werden.

NOTIZ: Damit dieses Makro funktioniert, müssen alle ausgewählten Elemente Bilder sein, da Word die Größenänderungsvorgänge nur für Bildobjekte durchführen kann. Wenn die Größe der Bilder nicht richtig geändert wird, überprüfen Sie Ihre Stile und passen Sie alle Bilder an ihren eigenen, eindeutigen Stil an.

verwandte Informationen