[Toutes versions] apercu images dans telecopie windows [Résolu]

[AgnesK]

Bonjour

Je me sers de ce code (d'un auteur dont je me souviens plus le nom, merci à lui quand même!) pour afficher une partie d'une feuille dans l'aperçu de télécopie de windows XP :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'nom et lieu de stockage de l'image
ch3="C:\MonDos\Visu.jpeg"
 
'copie image
With ActiveSheet
    .Range("A1:E23" ).CopyPicture
    .ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart.Paste
    .ChartObjects(1).Chart.Export Ch3
    .ChartObjects(1).Delete
  End With
 
'visualisation avec apercu images_telecopies Windows XP
ShellExecute 0, "open", "rundll32.exe", ""C:\WINDOWS\System32\shimgvw.dll" & ",ImageView_Fullscreen " & Ch3, 0, 1

Ce code fonctionne bien, mais malgré plusieurs essais infructueux, je n'ai pas trouvé de solution pour afficher plusieurs images en même temps :
cad je crée "visu1.jpeg", "visu2.jpeg","visu3.jpeg"... et je veux qu'il s'affiche dans l'aperçu.

Quelqu'un aurait-il une piste de solution ?
Merci d'avance

[bbil]

si toutes tes images sont sous le même répertoire tu peu faire :

Code :

ShellExecute 0, "open", "rundll32.exe", ""C:\WINDOWS\System32\shimgvw.dll" & ",ImageView_Fullscreen C:\MonDos\"

[AgnesK]

merci bbil

c'est exactement ce que je cherchais

bonne fin de journée