XL 2016 Ecrire sur unr photo avec paint en vba excel

[aurelio.ewane]

Bonjour les excellistes
je dispose de 500 photos et j'aimerais utiliser pzi't pour écrire dessus un message
c'est à dire les nom des élèves c'est pour un examen
je me demandais si c'était possible puisque les différents noms sont sur excel
decrire une macro qui va ouvrir chacune des photos avec paint et d'écrire dedans et fermer et passer à ma suivante
quelqu'un m'a dis que c'était possible avec les apI Windows
je galère la dessus depuis
prière de m'aider

 

[aurelio.ewane]

je teste ça ça marche pas
puis je venir Inbox avec toi

comment écrire sur 2 lignes
ça a marché

mais jamais écrire sur 2 lignes

 

[aurelio.ewane]

comment écrire sur 2 lignes
ça a marché

mais jamais écrire sur 2 lignes

Bonjour,
Si c'est pour une utilisation personnelle, une solution serait d'installer ImageMagick .
Le logiciel fait tout un tas de choses sur les photos .

L'Api Com pour Vb n'existant plus , on va utiliser la version commande Shell, code à mettre dans un module .
Je vous donne 2 types de notes ... ( il y a beaucoup d'autres options sur le site ImageMagick )
Regarde la pièce jointe 1164104

Je pense que vous saurez décliner la sub Test pour les cellules de votre tableau

Sub test()
 
  F = "D:\Users\....\Pictures\Source\"
  T = "D:\Users\....\Pictures\Cible\"
  ImgNote F & "Brochet.jpg", T & "Brochet Com.jpg", "Brochet", 1
  ImgNote F & "Brochet.jpg", T & "Brochet Com2.jpg", "Brochette", 2

End Sub

Sub ImgNote(Source As String, Cible As String, Note As String, TypOfNote)
Select Case True
    Case Note = ""
    Case Not CreateObject("Scripting.FileSystemObject").FileExists(Source)
    Case TypOfNote = 1
        Shell Replace("magick '" & Source & "'" & _
                  " -font Calibri" & _
                  " -pointsize 18" & _
                  " -background Khaki" & _
                  " -gravity Center" & _
                  "  label:'" & Note & "'" & _
                  " -append '" & Cible & "'", _
                  "'", """")
    Case TypOfNote = 2
      Shell Replace("magick '" & Source & "'" & _
                " -font Calibri" & _
                " -pointsize 18" & _
                " -gravity north" & _
                " -annotate +0+0 '" & Note & "'" & _
                "  '" & Cible & "'", _
                "'", """")
End Select
End Sub

j'ai finalement compris

 Bonjour
j'ai compris et marche

comment faire pour écrire sur plusieurs lignes

 

[fanch55]

comment faire pour écrire sur plusieurs lignes

Il suffit d'insérer dans le texte des Vblf ( line feed) qui correspondent à des retours à la ligne.
Par exemple :

ImgNote F & "Brochet.jpg", T & "Brochet Com.jpg", "Ce poisson" & vbLf & "est" & vbLf & "un Brochet", 1
ImgNote F & "Brochet.jpg", T & "Brochet Com2.jpg", "celui là" & vbLf & "aussi", 2

Je ne suis pas un spécialiste d'ImageMagick,
je ne m'en suis servi qu'à cette occasion.

Si vous avez plus de question à son sujet, je vous invite à consulter le site officiel :

ImageMagick

Create, Edit, Compose, or Convert Digital Images

imagemagick.org