XL 2016 Ecrire sur unr photo avec paint en vba excel

esaurelien à dit:

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

Cliquez pour agrandir...

esaurelien à dit:

comment écrire sur 2 lignes
ça a marché

mais jamais écrire sur 2 lignes

Cliquez pour agrandir...

fanch55 à dit:

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

VB:

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

Cliquez pour agrandir...

esaurelien à dit:

comment faire pour écrire sur plusieurs lignes

Cliquez pour agrandir...