Ne pas sélectionner un shape

[Eric D]

Bonjour le forum,

J'ai créé une image comme suit:

ActiveSheet.Pictures.Insert(NomFichier).Select
With Selection
.Name = "MonImage"
.ShapeRange.LockAspectRatio = msoFalse
.Placement = xlMoveAndSize
.ShapeRange.Height = H
.ShapeRange.Width = L
End With

et j'aimerai qu'elle ne soit pas sélectionnable. j'ai essayé:

Shape.Select.enable = False
.enable = False

Mais sans succès
Merci pour votre aide
Eric D

 

[Compte Supprimé 979]

Re : Ne pas sélectionner un shape

Salut Eric D,

La seule solution malheureusement, c'est la protection de la feuille.

A+

 

[Eric D]

Re : Ne pas sélectionner un shape

Bonjour BrunoM45

Merci pour ta réponse, mais dans ce cas, comment puis-je faire pour arriver au même résultat en hinnibant la sélection?

merci pour ton aide
Eric D

 

[Catrice]

Re : Ne pas sélectionner un shape

Bonjour,

Un contournement possible en fonction de ce que tu veux faire :
Insérer un controle VBA dans la feuille Excel.
Le controle Image par exemple dans lequel tu mets ton image ...

 

[Catrice]

Re : Ne pas sélectionner un shape

Re,

Est-ce que tu vois une image dans le fichier joint ?

 

[Eric D]

Re : Ne pas sélectionner un shape

Bonjour Catrice

Oui mais comment tu genère cet objet en VBA. Merci
Eric D

 

[Catrice]

Re : Ne pas sélectionner un shape

Re,

Tu as dans mon fichier une image "Image1" que tu peux gerer comme un objet vba.

Sub test()
[Feuil1].Image1.Picture = LoadPicture("C:\image.jpg")
[Feuil1].Image1.AutoSize = True
End Sub

Ce code recupere l'image C:\image.jpg
et fait un autosize.

On doit pouvoir trouver un autre controle pour faire un copier coler d'une image ou qq chose d'approchant.