Automatische Größenanpassung von Bildern (Erhöhen der Bildschirmgröße) in Microsoft Word

Question

Ich muss die Größe mehrerer Screenshots im Word-Dokument mit einem einzigen Klick ändern (erhöhen).

ich habe ein Makro dabei. Das Folgende ist das hier.

Sub ResizePics()
 Dim shp As Word.Shape
 Dim ishp As Word.InlineShape
 If Word.Selection.Type <> wdSelectionInlineShape And _
 Word.Selection.Type <> wdSelectionShape Then
 Exit Sub
 End If
 If Word.Selection.Type = wdSelectionInlineShape Then
 Set ishp = Word.Selection.Range.InlineShapes(1)
 ishp.LockAspectRatio = False
 ishp.Height = InchesToPoints(1.78)
 ishp.Width = InchesToPoints(3.17)
 Else
 If Word.Selection.Type = wdSelectionShape Then
 Set shp = Word.Selection.ShapeRange(1)
 shp.LockAspectRatio = False
 shp.Height = InchesToPoints(1.78)
 shp.Width = InchesToPoints(3.17)
 End If
 End If
 End Sub

aber das obige Makro funktioniert nur für einen Screenshot. Wenn Sie die Größe aller ausgewählten Bilder ändern möchten, sind einige Änderungen erforderlich.

Helfen Sie mir bitte beim Ändern des Makros.

Answer 1

Ich habe mir das angesehenLernprogrammund ich habe diesen Code geschrieben:

 Sub ResizePics()
 Dim shp As Word.Shape
 Dim ishp As Word.InlineShape

For Each ishp In ActiveDocument.InlineShapes
 ishp.LockAspectRatio = False
 ishp.Height = InchesToPoints(1.78)
 ishp.Width = InchesToPoints(3.17)
Next ishp

For Each shp In ActiveDocument.Shapes
 shp.LockAspectRatio = False
 shp.Height = InchesToPoints(1.78)
 shp.Width = InchesToPoints(3.17)
Next shp
 End Sub

ich bin kein Programmierer, also ist das nur ein Versuch :)