OVH Cloud OVH Cloud

Excel+VBA+affichage d'images

1 réponse
Avatar
OniZ
bonjours,

sous XL95, Win 95 (h=E9 oui il en reste encore qq'uns...)

j'essaie de mettre en place un bouton de commande qui=20
permettrait d'appeler un (ou des) fichier(s) image =E0=20
l'=E9cran (dans une autre feuille XL de pr=E9f=E9rence ou 'en=20
ext=E9rieur').

je ne comprends absolument pas comment r=E9aliser les=20
instructions ni si c'est d'ailleur r=E9alisable.


Merci par avance pour les r=E9ponses que vous me donnerez

PS: je ne connais VBA que tr=E8s superficiellement.

PSbis: si ce que je veux r=E9aliser est impossible,=20
n'h=E9siter pas =E0 me le dire.

merci encore

1 réponse

Avatar
Modeste
Bonjour,

Navré pour Erico mais pas de lien hypertexte en EXCEL
95....

par exemple macros fonctionnant en EXCEL 95 !!!

tu mets tes images dans l'arborescences "Mes Documents"
tu les renommes et les numerotes
par exemples :"vacances_01.jpg" ,:"vacances_02.jpg" etc...
tu ouvres un classeur dans "Mes Documents"
tu y colles les petites macros ci-dessous qui devrait te
permettre de commencer :

Sub loadimage()
' ----- pour les charger dans le classeur
With ActiveSheet '
.Pictures.Delete
For i = 1 To 30
'---ici on genere le nom de l'image
'---sinon il faudra le prendre dans une liste
nomimage = "Vacances_" & Format(i, "00")
.Pictures.Insert ThisWorkbook.Path & "" & nomimage
& ".jpg"
.Pictures(i).Top = 50
.Pictures(i).Left = 50
.Pictures(i).Height = 100
.Pictures(i).Width = 100
.Pictures(i).Name = nomimage
Next
End With
End Sub

Sub Feuilleter()
With ActiveSheet
For i = 1 To 30
nomimage = "Vacances_" & Format(i, "00")
.Pictures(nomimage).BringToFront
MsgBox "suivante"
Next
End With
End Sub

attention :!!!!!
quel que soit le format d'origine jpg, gif ,Bmp...
quel que soit le redimensionnement dans Excel....
la taille du document grossi de la taille d'origine de
chaque image en format étendu bitmap.

c'est alors là que l'on apprécierai un lien hypertexte

@+


-----Message d'origine-----
bonjours,

sous XL95, Win 95 (hé oui il en reste encore qq'uns...)

j'essaie de mettre en place un bouton de commande qui
permettrait d'appeler un (ou des) fichier(s) image à
l'écran (dans une autre feuille XL de préférence ou 'en
extérieur').

je ne comprends absolument pas comment réaliser les
instructions ni si c'est d'ailleur réalisable.


Merci par avance pour les réponses que vous me donnerez

PS: je ne connais VBA que très superficiellement.

PSbis: si ce que je veux réaliser est impossible,
n'hésiter pas à me le dire.

merci encore
.