InsertLogoDialog2 secundarios ()
Amortiguar el oDialog como Word.Dialog, lngPictureSize como doble
Amortiguar el pic como forma
Amortiguar el rng como gama
En errInsert indicado del error
Fijar el oDialog = los diálogos (el wdDialogInsertPicture)
Si oDialog.Display = -1 entonces 'cancelan no presionado
Application.ScreenUpdating = falso
Fijar pic = ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Formas (“LogoA”)
Fijar el rng = el pic. Ancla
pic. Cancelación
Fijar pic = ActiveDocument.Shapes.AddPicture (nombre de fichero: =oDialog.Name, _
LinkToFile: =False, _
SaveWithDocument: =True, ancla: =rng)
Con el pic
.LockAspectRatio = msoTrue
Si. Altura >. Anchura entonces
Si. Altura > MillimetersToPoints (16.1) entonces
. Altura = MillimetersToPoints (16.1)
Terminar si
Si. Anchura > MillimetersToPoints (100) entonces
. Anchura = MillimetersToPoints (50)
Terminar si
Terminar si
. Nombre = “LogoA”
.WrapFormat.Type = wdWrapTight
. Izquierda = CentimetersToPoints (0.98)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
. Tapa = CentimetersToPoints (0.98)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
Extremo con
Terminar si
'error aquí (línea no más necesaria)
'ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
Application.ScreenUpdating = verdad
Fijar el oDialog = nada
Salir el submarino
errInsert:
MsgBox Err.Description, “error: Insertar el cuadro”
Terminar el submarino
|