Anwenden einer allgemeinen Größe auf Bilder in Microsoft Word 2007

2

Ist es möglich, eine bestimmte Größe auf alle Bilder in einem Microsoft Word 2007 anzuwenden, während es bearbeitet wird? Wenn ja, wie geht das? Vielen Dank

microsoft-word images microsoft-word-2007 Hallo
quelle

Antworten:

3

Hier ist dieses fantastische Makro aus dieser Quelle . Ich habe es hier aufgenommen, falls der Link, auf den verwiesen wird, abläuft. Sie müssen im Grunde genommen eine Verknüpfung zuweisen und dieses Makro speichern und dann alle Bilder im Dokument auswählen (indem Sie zu Stile wechseln und den zugewiesenen Bildstil auswählen , den Sie haben).

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 den Makro für die ausgewählten Bilder aus und geben Sie einen Prozentsatz des größten Bildes unter dem ausgewählten Bild an. Der Standardwert ist 75%. Dies bedeutet, dass ALLE Bilder auf 75% der größten Bilder verkleinert werden.

HINWEIS : Alle ausgewählten Elemente müssen Bilder sein, damit dieses Makro funktioniert, da Word die Größenänderungsvorgänge nur für Bildobjekte ausführen kann. Wenn sich die Größe der Bilder nicht korrekt ändert, überprüfen Sie Ihre Stile und stellen Sie sicher, dass alle Bilder ihrem eigenen Stil entsprechen.

prrao
quelle