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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 .
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.
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.