InsertLogoDialog2 secondaires ()
Obscurcir l'oDialog comme Word.Dialog, lngPictureSize en tant que double
Obscurcir la PIC comme forme
Obscurcir le rng comme gamme
Sur l'errInsert GoTo d'erreur
Placer l'oDialog = les dialogues (le wdDialogInsertPicture)
Si oDialog.Display = -1 alors 'décommandent non pressé
Application.ScreenUpdating = faux
Placer PIC = ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Formes (« LogoA »)
Placer le rng = la PIC. Ancre
PIC. Suppression
Placer PIC = ActiveDocument.Shapes.AddPicture (nom de fichier : =oDialog.Name, _
LinkToFile : =False, _
SaveWithDocument : =True, ancre : =rng)
Avec la PIC
.LockAspectRatio = msoTrue
Si. Taille >. Largeur alors
Si. Taille > MillimetersToPoints (16.1) puis
. Taille = MillimetersToPoints (16.1)
Finir si
Autrement
Si. Largeur > MillimetersToPoints (100) puis
. Largeur = MillimetersToPoints (50)
Finir si
Finir si
. Nom = « LogoA »
.WrapFormat.Type = wdWrapTight
. Gauche = CentimetersToPoints (0.98)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
. Dessus = CentimetersToPoints (0.98)
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
Extrémité avec
Finir si
'erreur ici (ligne plus nécessaire)
'ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
Application.ScreenUpdating = rectifient
Placer l'oDialog = rien
Sortir le sous-marin
errInsert :
MsgBox Err.Description, « erreur : Insérer l'image »
Finir le sous-marin
|