Sub InsertLogoDialog2 ()
Na Błąd Rozpoczynający errInsert
Ćmić oDialog Jako Word.Dialog, lngPictureSize Kopia
Ustawiać oDialog = Dialog (wdDialogInsertPicture)
Ćmić pic Jako InlineShape
Z oDialog
. Pokaz
Application.ScreenUpdating = Fałszywy
ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Kształt ("LogoA"). Wybiórka
Selection.Delete
Jeżeli. Imię <> "" Wtedy
Set pic = ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Range.InlineShapes.AddPicture (FileName: =.Name, _
LinkToFile: =False, _
SaveWithDocument: =True, Pasmo: =Selection.Range)
Jeżeli pic. Wzrost > pic. Szerokość Wtedy
Z pic
pic.LockAspectRatio = msoTrue
Jeżeli pic. Wzrost > MillimetersToPoints (16.1) Wtedy pic. Wzrost = MillimetersToPoints (16.1)
Końcówka Z
Inny
Z pic
pic.LockAspectRatio = msoTrue
Jeżeli pic. Szerokość > MillimetersToPoints (100) Wtedy pic. Szerokość = MillimetersToPoints (50)
Końcówka Z
Kończyć Jeżeli
pic.ConvertToShape.Select
Z Selection.ShapeRange
. Imię = "LogoA"
.WrapFormat.Type = wdWrapTight
. Lewica = CentimetersToPoints (0.98)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
. Wierzchołek = CentimetersToPoints (0.98)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
Końcówka Z
Kończyć Jeżeli
'błąd tutaj
ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
Application.ScreenUpdating = Prawdziwy
Końcówka Z
Ustalony oDialog = Nic
Wyjście Okręt podwodny
errInsert:
MsgBox Err.Description, "Błąd: Wszywka Obrazek"
Końcówka Okręt podwodny
|