Bildrahmen automatisch hinzufügen beim Einfügen

[Max93]

Servus zusammen,

ich kopiere oft Screenshots / Bilder in Word Dateien und versehe sie immer per Hand mit einem kleinen Rahmen.
Dieser Prozess wird jedoch mühsam, wenn ich jedes Bild einzeln anklicken muss oder die Option "Format übertragen" verwende. Daher meine Frage: Gibt es eine Möglichkeit, vielleicht durch ein Makro, automatisch einen Bildrahmen zu erstellen, sobald ich ein Bild in das Word-Dokument einfüge?

Beste Grüße,
Max

[Max93]

Folgendes Makro erstellen und einfach oben in Schnellzugriff hinzufügen:

Sub Bilderrahmen ()
'-----------------< Bilderrahmen() >-----------------
'--< InlineShapes >--
Dim inlineShape As inlineShape
Dim iInlineshape As Integer
For iInlineshape = 1 To ActiveDocument.InlineShapes.Count
Set inlineShape = ActiveDocument.InlineShapes(iInlineshape)

'< border >
inlineShape.Line.Style = msoLineSingle
inlineShape.Line.Weight = 0.5
'</ border >
Next
'--</ InlineShapes >--

'--< Shapes >--
Dim shape As shape
Dim iShape As Integer
For iShape = 1 To ActiveDocument.Shapes.Count
Set shape = ActiveDocument.Shapes(iShape)

'< border >
shape.Line.Style = msoLineSingle
shape.Line.Weight = 0.5
'</ border >
Next
'--</ Shapes >--

'-----------------</ a3_Border_all_Images() >-----------------
End Sub

Ich bedanke mich selber