Ändern der Größe aller Bilder, größer als eine bestimmte Größe mit Makro in Microsoft Word 2007?

1721
Maysea

Ich habe ein Word-Dokument mit einigen 5000 Bildern. Es gibt zwei Arten, eine mit geringer Höhe und andere, die höher sind. Ich möchte nur die Größe ändern, die höher als 1 cm ist, um eine Breite von 2,3 cm zu erhalten. Ich habe ein Makro, um alle Bilder zu verkleinern, aber wenn es eine Möglichkeit gibt, die Bedingung, die ich erwähnt habe, hinzuzufügen, lass es mich wissen.

Hier ist das Makro, das ich zur Größenänderung aller Bilder verwendet habe.

Sub SizeAllImage() Dim pic As Long With ActiveDocument For pic = 1 To .InlineShapes.Count With .InlineShapes(pic) .Width = CentimetersToPoints(2.3) End With Next pic End With End Sub
0
Was ist, wenn Sie einen IF-Test hinzufügen, um zu überprüfen, ob die Bildhöhe> = 1 cm ist, wobei das wahre Ergebnis die .Width-Zuweisung in Ihrem With-Block ist. Angenommen, die Höhe ist bereits in Punkten angegeben: Wenn .Höhe> = ZentimeterToPoints (1), dann .Width = ZentimeterToPoints (2.3) - Tanya vor 6 Jahren 0
Danke, das funktioniert wie ein Zauber. Wirst du die Antwort dafür machen oder sollte ich? Für Leute, die mit der VBA-Syntax nicht wirklich vertraut sind, ist hier das letzte Makro, das für mich funktioniert hat: Sub SizeAllImage () Dim pic So lange mit ActiveDocument Für pic = 1 Bis .InlineShapes.Count Mit .InlineShapes (pic) If .Height> = CentimetersToPoints (1) Dann .Width = CentimetersToPoints (4.3) End If End Mit Nächstes Bild End With End Sub Maysea vor 6 Jahren 0
Glücklich, dass Sie eine Antwort hinzufügen. Tanya vor 6 Jahren 0

1 Antwort auf die Frage

0
Maysea

Eine Möglichkeit, dieses bedingte Makro zu erstellen, besteht darin, ein If zu verwenden, um die Höhe des ausgewählten Bildes zu überprüfen. (Danke für die Hilfe an Tanya).

Sub SizeAllImage() Dim pic As Long With ActiveDocument For pic = 1 To .InlineShapes.Count With .InlineShapes(pic) If .Height >= CentimetersToPoints(1) Then .Width = CentimetersToPoints(2.3) End If  End With Next pic End With End Sub

Verwandte Probleme