Sub InsertLogoDialog2 ()
Auf Störung Goto- errInsert
oDialog als Word.Dialog verdunkeln, als Doppeltes lngPictureSize
oDialog = Dialoge (wdDialogInsertPicture) einstellen
Pic als InlineShape verdunkeln
Mit oDialog
. Anzeige
Application.ScreenUpdating = falsch
ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Formen („LogoA“). Auserwählt
Selection.Delete
Wenn. Namens<> "" dann
Einstellen pic = ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Range.InlineShapes.AddPicture (Dateiname: =.Name, _
LinkToFile: =False, _
SaveWithDocument: =True, Strecke: =Selection.Range)
Wenn pic. Höhe > pic. Breite dann
Mit pic
pic.LockAspectRatio = msoTrue
Wenn pic. Höhe > MillimetersToPoints (16.1) dann pic. Höhe = MillimetersToPoints (16.1)
Ende mit
Sonst
Mit pic
pic.LockAspectRatio = msoTrue
Wenn pic. Breite > MillimetersToPoints (100) dann pic. Breite = MillimetersToPoints (50)
Ende mit
Beenden wenn
pic.ConvertToShape.Select
Mit Selection.ShapeRange
. Name = „LogoA“
.WrapFormat.Type = wdWrapTight
. Links = CentimetersToPoints (0.98)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
. Oberseite = CentimetersToPoints (0.98)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
Ende mit
Beenden wenn
'Störung hier
ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
Application.ScreenUpdating = richten aus
Ende mit
oDialog einstellen = nichts
Unterseeboot herausnehmen
errInsert:
MsgBox Err.Description, „Störung: Abbildung einsetzen“
Unterseeboot beenden
|