Discussion :

[sblahsblah]

Bonjour à tous,

Débutant en VBA, je sollicite votre aide pour créer une macro de traitement d'images sous Word 2013. Mon objectif est de redimensionner l'image, la centrer, puis lui donner une saturation de 0% et un noir et blanc de 75%.

J'ai réussi à réaliser les deux premières étapes, mais je bloque sur les deux suivantes : lorsque j'écris mon code pour le passage en noir et blanc, je n'arrive pas à modifier la constante (et donc impossible de mettre ma valeur). Et impossible d'intégrer la saturation...

Voici mon bout de code (je ne suis pas un pro, loin de là, je fais ça simplement pour me faciliter des tâches plus tard) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro1()
 
    Dim shape As InlineShape
 
    For Each shape In Selection.InlineShapes
        shape.LockAspectRatio = msoTrue
        shape.Height = CentimetersToPoints(7.5)
    Next
 
    For Each shape In Selection.InlineShapes
        shape.Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next
 
    For Each shape In Selection.InlineShapes
        shape.PictureFormat.ColorType = msoPictureBlackAndWhite
        'modification de la valeur ?
    Next
 
    'Insertion code pour la saturation
 
End Sub

Avez-vous des idées à me proposer ?

Merci d'avance !
sblah

[kiki29]

Salut, lire ceci : Utiliser la librairie Windows Image Acquisition en VBA.

[sblahsblah]

Salut, lire ceci : Utiliser la librairie Windows Image Acquisition en VBA.

Bonjour,

Je vous remercie pour votre message. Cependant, sur le lien où vous me renvoyez, la partie qui m'intéresse (les filtres), n'est plus accessible. De plus, j'ai l'impression que votre document (qui va bien plus loin que mon objectif, mais qui est très intéressant) est utilisé pour traiter un document ne contenant uniquement que des images ; dans mon cas, il y a également du texte aussi (je suis dans le cas de la rédaction d'un rapport)...

[clementmarcotte]

Bonjour,

Cependant, sur le lien où vous me renvoyez, la partie qui m'intéresse (les filtres), n'est plus accessible.

Franchement ! Les exemples sont toujours dans le texte. Ce qui ne fonctionne pas c'est juste le lien vers MSDN; ce qui n'est pas surprenant en soi. Le sport préféré chez Microsoft, c'est de modifier les sites Web, incluant MSDN.

[sblahsblah]

Bonjour,

Je vous remercie pour votre réponse. Étant un grand débutant dans ce genre de manipulation, il est très probable que j'aie manqué l'information qui m'intéressait ; je vais relire le dossier plus en détail. Je posterai bien entendu mon code (fonctionnel ou non) afin de vous faire un retour !

Merci encore et bonne journée,
sblah

[kiki29]

Salut, voir Windows Image Acquisition (WIA)