Discussion :

[JPierreM]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JPierreM]

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

[patricktoulon]

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

[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!!!

[patricktoulon]

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

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