Bildrahmen automatisch hinzufügen beim Einfügen

[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