InsertLogoDialog2 secundários ()
Escurecer o oDialog como Word.Dialog, lngPictureSize como o dobro
Escurecer o PIC como a forma
Escurecer o rng como a escala
No errInsert empreendedores do erro
Ajustar o oDialog = os diálogos (o wdDialogInsertPicture)
Se oDialog.Display = -1 então 'cancelam não pressionado
Application.ScreenUpdating = falso
Ajustar PIC = ActiveDocument.Sections (1). Encabeçamentos (wdHeaderFooterFirstPage). Formas (“LogoA”)
Ajustar o rng = o PIC. Escora
PIC. Supressão
Ajustar PIC = ActiveDocument.Shapes.AddPicture (nome de arquivo: =oDialog.Name, _
LinkToFile: =False, _
SaveWithDocument: =True, escora: =rng)
Com PIC
.LockAspectRatio = msoTrue
Se. Altura >. Largura então
Se. Altura > MillimetersToPoints (16.1) então
. Altura = MillimetersToPoints (16.1)
Terminar se
Mais
Se. Largura > MillimetersToPoints (100) então
. Largura = MillimetersToPoints (50)
Terminar se
Terminar se
. Nome = “LogoA”
.WrapFormat.Type = wdWrapTight
. Esquerda = CentimetersToPoints (0.98)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
. Parte superior = CentimetersToPoints (0.98)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
Extremidade com
Terminar se
'erro aqui (linha já não necessária)
'ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
Application.ScreenUpdating = retificam
Ajustar o oDialog = nada
Retirar o submarino
errInsert:
MsgBox Err.Description, “erro: Introduzir o retrato”
Terminar o submarino
|