Deux controles image différents

Version imprimable

Bonjour,

Sur une feuille de calcul j’ai placé un contrôle ActiveX image que l’on trouve dans l’onglet « Développeur », « Insérer ». En cliquant droit dessus, puis « Format de l’image… » j’ai la boite de dialogue « Format de l’image » dans laquelle il y a 5 onglets (Dimensions, Image, Protection, Propriétés et Web)

J’ai par hasard trouvé un autre contrôle image que j’ai inséré par copier/coller sur ma feuille. En cliquant droit dessus, puis « Format de l’image… » j’ai la boite de dialogue « Format de l’image » dans laquelle il y a non pas 5 onglets mais 6. L’onglet supplémentaire se nomme « Couleurs et traits »

Cet onglet m’intéresse plus particulièrement.

J’ai donc utilisé le code suivant afin d’en connaitre plus sur ces 2 contrôles Image
Code:

1 2 3 4 5 6 7 For Each objet In Sheets("Feuil1").DrawingObjects lgn = .[C65536].End(xlUp).Row On Error Resume Next [C1].Offset(lgn) = objet.Name [D1].Offset(lgn) = TypeName(objet) [E1].Offset(lgn) = Sheets("Feuil1").Shapes(objet.Name).Type Next
Dans les 2 cas le type de l’objet est : Picture, et son type 13.
Comment donc les différencier mais surtout où trouver le 2 ème contrôle pour pouvoir l’utiliser sans recourir au copier/coller.

Merci

16/04/2015, 09h27
patricktoulon

heu
Bonjour
l'un est un shape image l'autre est un control activeX "image"

le controlactiveX = menu inserer onglet développeur
l'autre
menu "insertion " et "image"

par vba le shape c'est

Code:

ActiveSheet.Pictures.Insert(chemin complet de l'image)

test
Code:

1 2 3 4 5 Sub test() For Each sh In ActiveSheet.Shapes Debug.Print sh.Name & " = "; sh.Type Next End Sub
resultat
'Image 1 = 13 pour la shape
'Image1 = 12 pour les control activX
18/04/2015, 09h23
JPierreM

1 pièce(s) jointe(s)

Bonjour,

J'ai bien relu et testé la proposition de Patrick mais ne suis pas vraiment convaincu.
En effet les boites de dialogues que l'on obtient après clic droit sur les différents contrôles ne sont pas identiques. J'en ai relevé 4 différentes. Pour illustrer mon propos je joins un fichier reprenant pas à pas ma démarche pour ces différents contrôles.

Merci pour vos informations.

JP
18/04/2015, 14h44
patricktoulon

re

Bonjour
déjà ton fichier n'aide pas beaucoup y a pas les deux object différent mais bon

rien qu'au titre de la fenêtre format tu devrais comprendre
l'un =format de control
l'autre= format de l'image

c'est donc bien ce que je dis
il y a un control activx "image" et une pictures "shapes image"
l'un donne 12 l'autre donne 13
point barre
18/04/2015, 15h19
gnain

Bonjour patricktoulon,
Bonjour JPierreM
je crois avoir saisi ce que JPierreM cherche
il cherche à reconnaître le contrôle en feuil 4.

la seul différence entre le contrôle en feuille 3 et le contrôle en feuille 4 est
la couleur de trait qui est activé pour le contrôle en feuille 4 (trait plein) et qui n'est pas activé en feuille 3 (aucun trait).

il sont tout les 2 de type 13.

il faut chercher la propriété qui détecte si la couleur de trait est à "trait plein"

pas facile!!
ce n'est pas juste Patrick qui à des question tordues!!!
18/04/2015, 16h25
patricktoulon

Citation:

Envoyé par gnain

ce n'est pas juste Patrick qui à des question tordues!!!

:ptdr::ptdr: visiblement

moi quand je regarde son fichier avec l'image de la fenêtre qui apparait c'est bien un control activx

on le voit déjà par le titre de la fenêtre

ou alors j'ai rien compris a ce qu'il demande

Au quel cas reformuler la question intelligiblement
18/04/2015, 16h36
gnain

oui mais fait un click droit sur le contrôle de la feuil3 et tu verra que la couleur de trait est désactivé
fait maintenant un click droit sur le contrôle en feuil4 et tu verra que la couleur de trait es activé.

ce qu'il veux c'est détecter le contrôle qui est en feuille4 qui a la couleur de trait activé

Bonjour,
j'ai trouvé

Code:

1
2
3
4
5
6
7
8
9
10
Sub test()
    For Each sh In ActiveSheet.Shapes
        Debug.Print sh.Name & ": Son type est = "; sh.Type
        If sh.Line.Visible = True Then
            Debug.Print sh.Name & ": La couleur de trait est activé. valeur = " & sh.Line.Visible
        Else
            Debug.Print sh.Name & ": La couleur de trait est déactivé. valeur = " & sh.Line.Visible
        End If
    Next
End Sub

on peut l'ecrire comme ca aussi :ptdr::ptdr::ptdr:

Code:

1
2
3
4
5
6
7
8
Sub test()
    Dim leoui, lenon
    leoui = ": La couleur de trait est activé. valeur = ": lenon = ": La couleur de trait est déactivé. valeur = "
    For Each sh In ActiveSheet.Shapes
        Debug.Print sh.Name & ": Son type est = "; sh.Type
        Debug.Print sh.Name & Switch(sh.Line.Visible = True, leoui & sh.Line.Visible, sh.Line.Visible = False, lenon & sh.Line.Visible)
    Next
End Sub

:fou::lefou:

18/04/2015, 22h32
JPierreM
Bonsoir à tous

Merci de vous intéresser à ma demande mais je ne comprends pas la réponse de Patrick
Dans mon fichier il y a :
1. Onglet Feuil1, un contrôle image de type N°13
2. Onglet Feuil2, un contrôle ActiveX de type N°12
3. Onglet Feuil3, un contrôle ActiveX de type N°12, comme dans la Feuil2. Si dans la barre de formules à la place de =INCORPORER("Forms.Image.1";"") » on met « = Présentation » le type du contrôle passe de 12 à 13. Ce n’est pas le propos de ma question initiale mais juste une remarque, je trouve surprenant que le contrôle puisse changer de type.
4. Onglet Feuil4, un contrôle de type N°13
On pourrait donc se contenter de dire que les contrôles de Feuil1 et Feuil4 sont identiques puisqu’ils sont du même type (13). En fait je pense que non pour les raisons suivantes :
1. Les menus contextuels par clic droit sont différents
2. Les boites de dialogue sont différentes
3. Si double clic sur le contrôle de Feuil1, dans le ruban l’onglet « Outils image Format » apparait. Double clic sur le contrôle de la Feuil4 on accède à la plage de cellules nommée Présentation. Double clic sur ce même contrôle mais après avoir supprimé dans la barre de formules « =Présentation », rien ne se passe. L’onglet « Outils image Format » dans le ruban n’apparait pas.
4. Sur le contrôle de l’onglet Feuil4 on peut accéder à la barre de formules alors que dans le contrôle de Feuil1 ce n’est pas possible.
Effectivement ces deux contrôles sont tous les deux de type 13 mais ne réagissent pas de la même façon.
Il y a donc quelque chose qui m’échappe, deux contrôles de même type devraient, du moins je le suppose, réagir de façon identique.
Merci de vos remarques

J-Pierre

Citation:

Envoyé par JPierreM

Effectivement ces deux contrôles sont tous les deux de type 13 mais ne réagissent pas de la même façon.
Il y a donc quelque chose qui m’échappe, deux contrôles de même type devraient, du moins je le suppose, réagir de façon identique.

oui il sont de même type mais pas les mêmes propriétées
et la réponse est dans le code que je vous ai mis plutôt
le revoici
Code:

1 2 3 4 5 6 7 8 9 10 Sub test() For Each sh In ActiveSheet.Shapes Debug.Print sh.Name & ": Son type est = "; sh.Type If sh.Line.Visible = True Then Debug.Print sh.Name & ": La couleur de trait est activé. valeur = " & sh.Line.Visible Else Debug.Print sh.Name & ": La couleur de trait est déactivé. valeur = " & sh.Line.Visible End If Next End Sub
ce code vous indique la différance

18/04/2015, 23h14
JPierreM

Bonsoir

Avant tout merci

Oui effectivement les contrôles sont du même type (13), mais qu'ils présentent des différences comme décrit avant me surprend.
Je dois donc admettre que si on ajoute une bordure, la boite de dialogue, obtenue par clic droit, est différente et un nouvel onglet est ajouté.
Dans la Feuil3 le contrôle, rappelons qu'au départ il était de type 12, s'ajuste automatiquement et il ne le fait pas sur la Feuil4. On doit donc supposer qu'il y a aussi une propriété Autosize ou quelque chose de similaire activé sur l'un et non sur l'autre, ou alors que la bordure fige les dimensions du contrôle
Oui pourquoi pas, mais alors comment ajouter cette bordure ou activer la propriété Autosize sans passer par VBA, car après tout ce contrôle peut être placé sur une feuille de calculs sans macro, et que dire par rapport au contrôle de la Feuil1 qui lui aussi est de type 13

Merci

JP
18/04/2015, 23h31
gnain

j'ai remarqué les impressions écran que vous avez fait dans votre fichier excel.
ils ne sont pas les même que chez moi.
donc je crois que vous avez une version inférieur à 2010.

Chez moi.
avec excel 2010 j'ai accès à activé ou désactivé tout ce que je veux et ainsi de rendre le contrôle de la feuille 3 comme
le contrôle de la feuille 4 sans passer par vba.
18/04/2015, 23h39
JPierreM

Oui effectivement j'ai excel 2007. Ce week-end j'essaierai avec une plus récente
Par contre arrivez-vous à faire la même chose avec le contrôle de la Feuil1 qui lui aussi est de type13

JP
18/04/2015, 23h48
gnain

oui, certain,
et je crois que vous aussi vous serai capable
d'après votre impression écran de feuille 6

alors faire un click droit sur l'image de la feuil1, format de l'image, couleur du trait,
il faut coché trait plein.