Sub Clipboard_als_Bild_einfuegen_19cm()
'--------------------------<
Clipboard_als_Bild_einfuegen_19cm() >----------------
'----<
Clipboard einfuegen >----
'*als Bitmap
Selection.Collapse Direction:=wdCollapseStart
Selection.PasteSpecial DataType:=wdPasteBitmap
'----</ Clipboard einfuegen >----
'<
markieren >
Selection.MoveLeft Unit:=wdCharacter, Count:=1,
Extend:=wdExtend
'</ markieren >
'----<
Groesse anpassen und Rahmen >----
Dim objInlineShape As
InlineShape
Set objInlineShape =
Selection.InlineShapes(1)
objInlineShape.Line.Style = msoLineSingle
objInlineShape.Line.Weight = 2
objInlineShape.LockAspectRatio = msoTrue
objInlineShape.Width =
CentimetersToPoints(19)
'----</ Groesse anpassen und Rahmen >----
'--------------------------</
Clipboard_als_Bild_einfuegen_19cm() >----------------
End Sub
|