Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Remplace l'image spécifiée, si vous le souhaitez à raison de l'image de remplacement à l'image ou le remplissage du cadre. Renvoie la valeur Nothing.
Syntaxe
expression. ReplaceEx (PathName, InsertAs, Fit)
expression Variable qui représente un objet PictureFormat .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| PathName | Requis | Chaîne | Nom et chemin d'accès au fichier par lequel vous voulez remplacer l'image spécifiée. |
| InsertAs | Facultatif | PbPictureInsertAs | Méthode choisie pour l'insertion du fichier image dans le document : lié ou incorporé. Il peut s’agir de l’une des constantes PbPictureInsertAs déclarées dans la bibliothèque de type Microsoft Publisher ; la valeur par défaut est pbPictureInsertAsOriginalState. |
| Fit | Facultatif | PbPictureInsertFit | Indique si l’image insérée est adaptée au cadre ou remplit le cadre. |
Exemple
Le suivant Microsoft Visual Basic pour Applications (VBA) montre comment utiliser la méthode ReplaceEx pour remplacer toutes les images dans une composition par une autre image. Dans cet exemple, l'image de remplacement est adapté aux images des images précédentes, mais vous pouvez utiliser pbFill à la place de pbFit si vous voulez remplir les images à la place. Cet exemple exclut également les images sur les pages maîtres.
Avant d’exécuter cette macro, remplacez par replacementPicturePath le chemin d’accès à l’image que vous souhaitez utiliser comme remplacement.
Public Sub ReplaceEx_Example()
Dim pubPage As Page
Dim pubShape As Shape
Dim strReplacePicturePath As String
strReplacePicturePath = replacementPicturePath
For Each pubPage In ActiveDocument.Pages
For Each pubShape In pubPage.Shapes
If pubShape.Type = pbPicture Then
pubShape.PictureFormat.ReplaceEx strReplacePicturePath, pbPictureInsertAsOriginalState, pbFit
End If
Next pubShape
Next pubPage
End Sub
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.