[VBA] collage spécial [Résolu]

[le_niak]

Bonjour,

J'essaye d'automatiser un collage spécial, (collage en metfichier).

J'ai essayé cette formule mais elle implique une erreur (le type de données spécifié est indisponible) :

Selection.PasteAndFormat (wdPasteMetafilePicture)

Est ce que quelqu'un aurait une autre idée pour réaliser ce collaga spécial.

Merci

[ouskel'n'or]

Le paramètre wdPasteMetafilePicture que tu utilises appartient à PasteSpecial, non à PasteAndFormat
Regarde dans l'aide

Code :

Selection.Range.PasteSpecial DataType:=wdPasteMetafilePicture

A+

[le_niak]

Oki,

Je vais essayer ce code de suite.

Merci.

[le_niak]

J'ai regardé dans F1 puis utilisé la formule (j'ai essayé avec lien, sans lien, les deux formules contenant metafichier) mais malheuresement cela ne produit pas le meme résultat que edition, collageSpecial, Image (metafichier amélioré).

Aurais tu une autre idée?


Edit:

En fait c'était juste une question de format, il fallait juste que l'ilmage soit en aligné avec le texte.

[ouskel'n'or]

C'est Ok ?

[le_niak]

pas complétement
Je ne trouve pas comment modifier les paramétres d'une image en VBA.

[ouskel'n'or]

Was für ein parameter ?

[le_niak]

Je veux mettre l'image en mode aligné sur le texte.

[ouskel'n'or]

Avec cette syntaxe, l'image est automatiquement alignée

Code :

1
2
3
    Selection.InlineShapes.AddPicture FileName:= _
        "D:\CLIPART\Avions\APPAREIL.JPG", LinkToFile:=False, SaveWithDocument:= _
        True

et avec celui-ci aussi

Code :

1
2
    Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
        Placement:=wdInLine, DisplayAsIcon:=False

Tu dois mettre le paramètre Placement:=wdInLine
A+

[le_niak]

J'avais essayé cette technique mais "elle me coupe" le bas de mes données.


Edit: par contre en utilisant le wdPasteEnhancedMetafile ca fonctionne enfin.

Merci

[ouskel'n'or]

Dans ce cas là, utilise

Code :

1
2
Selection.PasteSpecial Link:=True, DataType:=wdPasteMetafilePicture, _
        Placement:=wdInLine, DisplayAsIcon:=False

[le_niak]

En fait ca fonctionne très bien avec
Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False


Encore merci pour ton aide.

[ouskel'n'or]