XL 2016 Ecrire sur unr photo avec paint en vba excel

aurelio.ewane · 22 Février 2023

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

job75 · 22 Février 2023

Bonjour esaurelien,

Curieuse idée de vouloir écrire un nom sur une photo.

Modifiez manuellement le nom de chaque fichier image en lui donnant le nom de l'élève.

A+

Deadpool_CC · 22 Février 2023

Bonjour,
tout dépend du format attendu mais au plus simple, je ne partirais pas sur une solution Excel
j'aurais plutôt fait un publipostage dans Word pour obtenir un pdf type tombinoscope avec les nom sous les photos...
Piloter une application Externe depuis Excel est franchement pas le plus simple.

fanch55 · 22 Février 2023

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 )

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

aurelio.ewane · 22 Février 2023

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 1164037

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

Bonjour et merci pour votre réaction
please j'ai besoin de bien comprendre
ça veut dire que je dois telecharges le logiciel image magick
et ensuite exécuter la macro?

fanch55 · 23 Février 2023

esaurelien à dit:
Bonjour et merci pour votre réaction
please j'ai besoin de bien comprendre
ça veut dire que je dois telecharges le logiciel image magick
et ensuite exécuter la macro?

Tout a fait.
cliquez sur le lien hypertexte pour télécharger,
installez le logiciel,
Mettez le code dans un module d'un classeur excel,
Modifiez la sub test avec vos propres fichiers images
Exécutez

Dranreb · 23 Février 2023

Bonsoir.
Personnellement j'utlise Paint.net. C'est assez simple et gratuit.

fanch55 · 23 Février 2023

Dranreb à dit:
Bonsoir.
Personnellement j'utlise Paint.net. C'est assez simple et gratuit.

Salut @Dranreb ,
Tu as réussi à l'exploiter avec VBA sans entrer dans l'Ui ?

Dranreb · 23 Février 2023

Non mais il permet d'ajouter un texte sur une image et de la réenregistrer. Nombreux formats de fichiers images supportés.

aurelio.ewane · 26 Février 2023

fanch55 à dit:
Salut @Dranreb ,
Tu as réussi à l'exploiter avec VBA sans entrer dans l'Ui ?

non pas du tout
j'aimerais savoir le lien du dossier ou j'enregistre les photos
le lien du dossier ou je vais stocker les photos modifier
et les messages please je suis perdu

par exemple
mes photos se trouvent
sur un emplacement note source1 et les photos modifiées dans source1
comment adapter à ton code
parce que je n'y comprends rien

aurelio.ewane · 26 Février 2023

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

que représente TypOfNote
besoin de plus d'explications s'il vous plaît expert

patricktoulon · 26 Février 2023

re
bonsoir tous
si c'est des jpg , gif , tiif , bmp

bien que excel ne soit pas fait pour ça mais il peut le faire

fanch55 · 26 Février 2023

ImgNote F & "Brochet.jpg", T & "Brochet Com.jpg", "Brochet", 1

F (From) est le nom du dossier source où sont vos photos
T (To ) est le nom du dossier cible où seront stockées les photos modifiées (annotées) .

TypOfNote est une variable fictive de valeur 1 ou 2 pour indiquer quel type d'annotation est voulu .

aurelio.ewane · 26 Février 2023

fanch55 à dit:
F (From) est le nom du dossier source où sont vos photos
T (To ) est le nomje ne sausoar du dossier cible où seront stockées les photos modifiées (annotées) .

TypOfNote est une variable fictive de valeur 1 ou 2 pour indiquer quel type d'annotation est voulu .

je ne comprends pas quand vous parlez de variable fictive

aurelio.ewane · 26 Février 2023

fanch55 à dit:
F (From) est le nom du dossier source où sont vos photos
T (To ) est le nom du dossier cible où seront stockées les photos modifiées (annotées) .

TypOfNote est une variable fictive de valeur 1 ou 2 pour indiquer quel type d'annotation est voulu .

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

XL 2016 Ecrire sur unr photo avec paint en vba excel

aurelio.ewane

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

fanch55

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

aurelio.ewane

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

aurelio.ewane

XLDnaute Occasionnel

Discussions similaires