j'aimerai savoir comment faire (si c'est possible) pour,=20
en cliquant sur un bouton de commande, faire appara=EEtre=20
une boite image sur la feuille excel dans laquelle=20
s'afficherait une image pr=E9cis=E9e dans la commande.
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
michdenis
Bonjour Oniz,
Le but de la procédure suivante est de créer dans une feuille de calcul, un contrôle "image" issu de la boîte à outils contrôle et d'y insérer une image à un endroit spécifique de la feuille dont l'étendue est représentée par un objet range que nous spécifions à la procédure.
Les 2 procédures qui suivent à copier dans un module standard.
La procédure a trois arguments :
A ) Nom de la feuille où insérer le contrôle :Feuil1 B ) Ou sera située le contrôle et son étendue : Range("b5:D6") C ) Le chemin et le fichier où est situé l'image sur le disque dur : "C:WinntPlume.bmp"
`Dans la procédure : InsertPictureControlImage , il est possible de définir d'autres propriétés de l'image selon tes besoins à l'endroit indiqué.
Attention aux lignes coupées par le service de messagerie
'------------------------- Sub InsertPictureControlImage(Feuille As String, Rg As Range, NomImage As String)
Dim Img As Image, RgImage As Range Set RgImage = Worksheets(Feuille).Range(Rg.Address)
With Worksheets(Feuille) Largeur = RgImage.Offset(, 1) _ (, RgImage.Columns.Count).Left - RgImage.Left Hauteur = RgImage.Offset(RgImage.Rows.Count).Top _ - RgImage(1).Top Set Img = .OLEObjects.Add(ClassType:="Forms.Image.1", _ Link:úlse, DisplayAsIcon:úlse, _ Left:=RgImage.Left, Top:=RgImage.Top, _ Width:=Largeur, Height:=Hauteur).Object With Img 'Chargement de l'image dans le contrôle .Picture = LoadPicture("C:WinntPlume.bmp") 'Les propriétés du contrôle image sont accessibles 'de cette façon .PictureTiling = True End With End With 'Libère la mémoire vive des objets Set RgImage = Nothing: Set Img = Nothing
End Sub '-----------------------------------
Salutations!
"Oniz" a écrit dans le message de news:a35701c346b5$cd5b6650$ bonjour
j'aimerai savoir comment faire (si c'est possible) pour, en cliquant sur un bouton de commande, faire apparaître une boite image sur la feuille excel dans laquelle s'afficherait une image précisée dans la commande.
je dispose de win95 & xl95
merci par avance
PS mon niveau VBA est déplorable
Bonjour Oniz,
Le but de la procédure suivante est de créer dans une feuille de calcul, un contrôle "image" issu de la boîte à outils
contrôle et d'y insérer une image à un endroit spécifique de la feuille dont l'étendue est représentée par un objet range que
nous spécifions à la procédure.
Les 2 procédures qui suivent à copier dans un module standard.
La procédure a trois arguments :
A ) Nom de la feuille où insérer le contrôle :Feuil1
B ) Ou sera située le contrôle et son étendue : Range("b5:D6")
C ) Le chemin et le fichier où est situé l'image sur le disque dur :
"C:WinntPlume.bmp"
`Dans la procédure : InsertPictureControlImage , il est possible de définir d'autres propriétés de l'image selon tes besoins
à l'endroit indiqué.
Attention aux lignes coupées par le service de messagerie
'-------------------------
Sub InsertPictureControlImage(Feuille As String, Rg As Range, NomImage As String)
Dim Img As Image, RgImage As Range
Set RgImage = Worksheets(Feuille).Range(Rg.Address)
With Worksheets(Feuille)
Largeur = RgImage.Offset(, 1) _
(, RgImage.Columns.Count).Left - RgImage.Left
Hauteur = RgImage.Offset(RgImage.Rows.Count).Top _
- RgImage(1).Top
Set Img = .OLEObjects.Add(ClassType:="Forms.Image.1", _
Link:úlse, DisplayAsIcon:úlse, _
Left:=RgImage.Left, Top:=RgImage.Top, _
Width:=Largeur, Height:=Hauteur).Object
With Img
'Chargement de l'image dans le contrôle
.Picture = LoadPicture("C:WinntPlume.bmp")
'Les propriétés du contrôle image sont accessibles
'de cette façon
.PictureTiling = True
End With
End With
'Libère la mémoire vive des objets
Set RgImage = Nothing: Set Img = Nothing
End Sub
'-----------------------------------
Salutations!
"Oniz" <demononiz@yahoo.fr> a écrit dans le message de news:a35701c346b5$cd5b6650$a401280a@phx.gbl...
bonjour
j'aimerai savoir comment faire (si c'est possible) pour,
en cliquant sur un bouton de commande, faire apparaître
une boite image sur la feuille excel dans laquelle
s'afficherait une image précisée dans la commande.
Le but de la procédure suivante est de créer dans une feuille de calcul, un contrôle "image" issu de la boîte à outils contrôle et d'y insérer une image à un endroit spécifique de la feuille dont l'étendue est représentée par un objet range que nous spécifions à la procédure.
Les 2 procédures qui suivent à copier dans un module standard.
La procédure a trois arguments :
A ) Nom de la feuille où insérer le contrôle :Feuil1 B ) Ou sera située le contrôle et son étendue : Range("b5:D6") C ) Le chemin et le fichier où est situé l'image sur le disque dur : "C:WinntPlume.bmp"
`Dans la procédure : InsertPictureControlImage , il est possible de définir d'autres propriétés de l'image selon tes besoins à l'endroit indiqué.
Attention aux lignes coupées par le service de messagerie
'------------------------- Sub InsertPictureControlImage(Feuille As String, Rg As Range, NomImage As String)
Dim Img As Image, RgImage As Range Set RgImage = Worksheets(Feuille).Range(Rg.Address)
With Worksheets(Feuille) Largeur = RgImage.Offset(, 1) _ (, RgImage.Columns.Count).Left - RgImage.Left Hauteur = RgImage.Offset(RgImage.Rows.Count).Top _ - RgImage(1).Top Set Img = .OLEObjects.Add(ClassType:="Forms.Image.1", _ Link:úlse, DisplayAsIcon:úlse, _ Left:=RgImage.Left, Top:=RgImage.Top, _ Width:=Largeur, Height:=Hauteur).Object With Img 'Chargement de l'image dans le contrôle .Picture = LoadPicture("C:WinntPlume.bmp") 'Les propriétés du contrôle image sont accessibles 'de cette façon .PictureTiling = True End With End With 'Libère la mémoire vive des objets Set RgImage = Nothing: Set Img = Nothing
End Sub '-----------------------------------
Salutations!
"Oniz" a écrit dans le message de news:a35701c346b5$cd5b6650$ bonjour
j'aimerai savoir comment faire (si c'est possible) pour, en cliquant sur un bouton de commande, faire apparaître une boite image sur la feuille excel dans laquelle s'afficherait une image précisée dans la commande.
je dispose de win95 & xl95
merci par avance
PS mon niveau VBA est déplorable
michdenis
Bonjour Oniz,
Le but de la procédure suivante est de créer dans une feuille de calcul, un contrôle "image" issu de la boîte à outils contrôle et d'y insérer une image à un endroit spécifique de la feuille dont l'étendue est représentée par un objet range que nous spécifions à la procédure.
Les 2 procédures qui suivent à copier dans un module standard.
La procédure a trois arguments :
A ) Nom de la feuille où insérer le contrôle :Feuil1 B ) Ou sera située le contrôle et son étendue : Range("b5:D6") C ) Le chemin et le fichier où est situé l'image sur le disque dur : "C:WinntPlume.bmp"
`Dans la procédure : InsertPictureControlImage , il est possible de définir d'autres propriétés de l'image selon tes besoins à l'endroit indiqué.
Attention aux lignes coupées par le service de messagerie
Sub InsertPictureControlImage(Feuille As String, RgImage As Range, NomImage As String)
Dim Rg As Range, Img As Image Set Rg = Worksheets(Feuille).Range(RgImage.Address)
With Rg Largeur = .Offset(, 1)(0, .Columns.Count).Left - .Left Hauteur = .Offset(.Rows.Count).Top - .Item(1).Top Set Img = Worksheets(Feuille).OLEObjects.Add _ (ClassType:="Forms.Image.1", _ Link:úlse, DisplayAsIcon:úlse, _ Left:=.Left, Top:=.Top, _ Width:=Largeur, Height:=Hauteur).Object With Img 'Chargement de l'image dans le contrôle .Picture = LoadPicture("C:WinntPlume.bmp") 'Les propriétés du contrôle image sont accessibles 'de cette façon .PictureTiling = True End With End With 'Libère la mémoire vive des objets Set Rg = Nothing: Set Img = Nothing
End Sub '-------------------------
Salutations"
"Oniz" a écrit dans le message de news:a35701c346b5$cd5b6650$ bonjour
j'aimerai savoir comment faire (si c'est possible) pour, en cliquant sur un bouton de commande, faire apparaître une boite image sur la feuille excel dans laquelle s'afficherait une image précisée dans la commande.
je dispose de win95 & xl95
merci par avance
PS mon niveau VBA est déplorable
Bonjour Oniz,
Le but de la procédure suivante est de créer dans une feuille de calcul, un contrôle "image" issu de la boîte à outils
contrôle et d'y insérer une image à un endroit spécifique de la feuille dont l'étendue est représentée par un objet range que
nous spécifions à la procédure.
Les 2 procédures qui suivent à copier dans un module standard.
La procédure a trois arguments :
A ) Nom de la feuille où insérer le contrôle :Feuil1
B ) Ou sera située le contrôle et son étendue : Range("b5:D6")
C ) Le chemin et le fichier où est situé l'image sur le disque dur :
"C:WinntPlume.bmp"
`Dans la procédure : InsertPictureControlImage , il est possible de définir d'autres propriétés de l'image selon tes besoins
à l'endroit indiqué.
Attention aux lignes coupées par le service de messagerie
Sub InsertPictureControlImage(Feuille As String, RgImage As Range, NomImage As String)
Dim Rg As Range, Img As Image
Set Rg = Worksheets(Feuille).Range(RgImage.Address)
With Rg
Largeur = .Offset(, 1)(0, .Columns.Count).Left - .Left
Hauteur = .Offset(.Rows.Count).Top - .Item(1).Top
Set Img = Worksheets(Feuille).OLEObjects.Add _
(ClassType:="Forms.Image.1", _
Link:úlse, DisplayAsIcon:úlse, _
Left:=.Left, Top:=.Top, _
Width:=Largeur, Height:=Hauteur).Object
With Img
'Chargement de l'image dans le contrôle
.Picture = LoadPicture("C:WinntPlume.bmp")
'Les propriétés du contrôle image sont accessibles
'de cette façon
.PictureTiling = True
End With
End With
'Libère la mémoire vive des objets
Set Rg = Nothing: Set Img = Nothing
End Sub
'-------------------------
Salutations"
"Oniz" <demononiz@yahoo.fr> a écrit dans le message de news:a35701c346b5$cd5b6650$a401280a@phx.gbl...
bonjour
j'aimerai savoir comment faire (si c'est possible) pour,
en cliquant sur un bouton de commande, faire apparaître
une boite image sur la feuille excel dans laquelle
s'afficherait une image précisée dans la commande.
Le but de la procédure suivante est de créer dans une feuille de calcul, un contrôle "image" issu de la boîte à outils contrôle et d'y insérer une image à un endroit spécifique de la feuille dont l'étendue est représentée par un objet range que nous spécifions à la procédure.
Les 2 procédures qui suivent à copier dans un module standard.
La procédure a trois arguments :
A ) Nom de la feuille où insérer le contrôle :Feuil1 B ) Ou sera située le contrôle et son étendue : Range("b5:D6") C ) Le chemin et le fichier où est situé l'image sur le disque dur : "C:WinntPlume.bmp"
`Dans la procédure : InsertPictureControlImage , il est possible de définir d'autres propriétés de l'image selon tes besoins à l'endroit indiqué.
Attention aux lignes coupées par le service de messagerie
Sub InsertPictureControlImage(Feuille As String, RgImage As Range, NomImage As String)
Dim Rg As Range, Img As Image Set Rg = Worksheets(Feuille).Range(RgImage.Address)
With Rg Largeur = .Offset(, 1)(0, .Columns.Count).Left - .Left Hauteur = .Offset(.Rows.Count).Top - .Item(1).Top Set Img = Worksheets(Feuille).OLEObjects.Add _ (ClassType:="Forms.Image.1", _ Link:úlse, DisplayAsIcon:úlse, _ Left:=.Left, Top:=.Top, _ Width:=Largeur, Height:=Hauteur).Object With Img 'Chargement de l'image dans le contrôle .Picture = LoadPicture("C:WinntPlume.bmp") 'Les propriétés du contrôle image sont accessibles 'de cette façon .PictureTiling = True End With End With 'Libère la mémoire vive des objets Set Rg = Nothing: Set Img = Nothing
End Sub '-------------------------
Salutations"
"Oniz" a écrit dans le message de news:a35701c346b5$cd5b6650$ bonjour
j'aimerai savoir comment faire (si c'est possible) pour, en cliquant sur un bouton de commande, faire apparaître une boite image sur la feuille excel dans laquelle s'afficherait une image précisée dans la commande.
