j'importe une image jpg (appellons la "Image1")sur une feuille Excel, je
créé un controle Image de la taille de l'Image1 ("Image2") sur l'Image1.
Dans les propriétés de Image2 je mets BackStyle à transparent. Le but est de
gérer le clic sur Image2 mais pour agir sur Image1.
Je double clic sur Image2 pour en éditer le code (cf. fin de post)
Je selectionne les 2 images (F5, cellules, objets), clic droit,
groupe/grouper.
Je sors du mode création
et j'essai.
...........
qd on clic sur le groupe d'image, le code de Image2 est bien executé mais
l'image2 passe en opaque !!!!!!!!!!! Gros soucis, j'ai tenté beaucoup de
choses différentes depuis qq temps mais sans succès.
Merci d'avance.
John
Private Sub Image2_Click()
Dim oshp As Shape, oshp2 As Shape, DONE As Boolean
For Each oshp In Sheets(1).Shapes
For Each oshp2 In oshp.GroupItems
If oshp2.name = "Image2" Then
oshp.Left = 0
oshp.Top = 0
DONE = True
Exit For
End If
If DONE Then Exit For
Next
Next
End Sub
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
garnote
Salut John,
Pas sûr de comprendre :-( Tu as deux contrôles Image groupés avec une image dans un seul des contrôles ? Et après qu'est-il censé arriver :-)))
Serge
"JohnFuss" a écrit dans le message de news: 40d07bc9$0$282$
Bonjour à tous,
voici mon soucis :
j'importe une image jpg (appellons la "Image1")sur une feuille Excel, je créé un controle Image de la taille de l'Image1 ("Image2") sur l'Image1. Dans les propriétés de Image2 je mets BackStyle à transparent. Le but est de
gérer le clic sur Image2 mais pour agir sur Image1.
Je double clic sur Image2 pour en éditer le code (cf. fin de post) Je selectionne les 2 images (F5, cellules, objets), clic droit, groupe/grouper. Je sors du mode création et j'essai. ........... qd on clic sur le groupe d'image, le code de Image2 est bien executé mais l'image2 passe en opaque !!!!!!!!!!! Gros soucis, j'ai tenté beaucoup de choses différentes depuis qq temps mais sans succès.
Merci d'avance.
John
Private Sub Image2_Click() Dim oshp As Shape, oshp2 As Shape, DONE As Boolean
For Each oshp In Sheets(1).Shapes For Each oshp2 In oshp.GroupItems If oshp2.name = "Image2" Then oshp.Left = 0 oshp.Top = 0 DONE = True Exit For End If If DONE Then Exit For Next Next End Sub
Salut John,
Pas sûr de comprendre :-(
Tu as deux contrôles Image groupés avec
une image dans un seul des contrôles ?
Et après qu'est-il censé arriver :-)))
Serge
"JohnFuss" <johnfuss@yahoo.fr> a écrit dans le message de news:
40d07bc9$0$282$626a14ce@news.free.fr...
Bonjour à tous,
voici mon soucis :
j'importe une image jpg (appellons la "Image1")sur une feuille Excel, je
créé un controle Image de la taille de l'Image1 ("Image2") sur l'Image1.
Dans les propriétés de Image2 je mets BackStyle à transparent. Le but est
de
gérer le clic sur Image2 mais pour agir sur Image1.
Je double clic sur Image2 pour en éditer le code (cf. fin de post)
Je selectionne les 2 images (F5, cellules, objets), clic droit,
groupe/grouper.
Je sors du mode création
et j'essai.
...........
qd on clic sur le groupe d'image, le code de Image2 est bien executé mais
l'image2 passe en opaque !!!!!!!!!!! Gros soucis, j'ai tenté beaucoup de
choses différentes depuis qq temps mais sans succès.
Merci d'avance.
John
Private Sub Image2_Click()
Dim oshp As Shape, oshp2 As Shape, DONE As Boolean
For Each oshp In Sheets(1).Shapes
For Each oshp2 In oshp.GroupItems
If oshp2.name = "Image2" Then
oshp.Left = 0
oshp.Top = 0
DONE = True
Exit For
End If
If DONE Then Exit For
Next
Next
End Sub
Pas sûr de comprendre :-( Tu as deux contrôles Image groupés avec une image dans un seul des contrôles ? Et après qu'est-il censé arriver :-)))
Serge
"JohnFuss" a écrit dans le message de news: 40d07bc9$0$282$
Bonjour à tous,
voici mon soucis :
j'importe une image jpg (appellons la "Image1")sur une feuille Excel, je créé un controle Image de la taille de l'Image1 ("Image2") sur l'Image1. Dans les propriétés de Image2 je mets BackStyle à transparent. Le but est de
gérer le clic sur Image2 mais pour agir sur Image1.
Je double clic sur Image2 pour en éditer le code (cf. fin de post) Je selectionne les 2 images (F5, cellules, objets), clic droit, groupe/grouper. Je sors du mode création et j'essai. ........... qd on clic sur le groupe d'image, le code de Image2 est bien executé mais l'image2 passe en opaque !!!!!!!!!!! Gros soucis, j'ai tenté beaucoup de choses différentes depuis qq temps mais sans succès.
Merci d'avance.
John
Private Sub Image2_Click() Dim oshp As Shape, oshp2 As Shape, DONE As Boolean
For Each oshp In Sheets(1).Shapes For Each oshp2 In oshp.GroupItems If oshp2.name = "Image2" Then oshp.Left = 0 oshp.Top = 0 DONE = True Exit For End If If DONE Then Exit For Next Next End Sub
