Message erreur

[gildas lechat]

Bonjour le forum..🙂

Voila j'ai une macro pour une insertion d'image sur un ficher.
Lors de la réalisation de la macro, un message d' erreur apparaît.
Message : " Impossible de lire la propriété Drawing Object de la classe Worksheet"
Ce message d'erreur n'intervient pas dans tout les cas...

Si vous pouviez me renseigner pour résoudre le problème.
Merci d'avance.

'insertion image
Sub InsertionImage1()
Dim Emplacement As Range
Dim Img As Object
Dim ShapeObj As Shape

'Boucle pour supprimer l'ancienne imag
With Sheets("rapport")
For Each ShapeObj In .Shapes
If ShapeObj.Name = "Cible1" Then .Shapes("Cible1").Delete
Next ShapeObj

If Application.Dialogs(xlDialogInsertPicture).Show Then
'Définit l'emplacement de l'image
Set Emplacement = .Range("C162:AE180")
Set Img = .DrawingObjects(.Shapes.Count)
With Img.ShapeRange
'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)
.Name = "Cible1"
.LockAspectRatio = msoTrue ' ratio image
.Left = Emplacement.Left
.Top = Emplacement.Top
'.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Else
MsgBox "Insertion d'image interrompue."
End If
End With
End Sub

 

[pierrejean]

Re : Message erreur

bonjour gildas

tester remplacer
.Shapes.Count
par
.DrawingObjects.Count

 

[gildas lechat]

Re : Message erreur

Bonjour le forum,

Pour essayer d'être plus précis sur l'erreur, celle ci apparaît lorsque l'on change le choix des listes déroulantes présentent sur le fichier et ensuite on effectu une insertion d'image.
Vous trouverez ci joint un fichier pour exemple

Gildas

 

[gildas lechat]

Re : Message erreur

Bonjour

Merci à PierreJean.

Le test semble fontionner.
Quel est la différence entre .DrawingObjects.Count et .Shape.count?

Gildas

 

[pierrejean]

Re : Message erreur

Re

Il existe des Shapes qui ne sont pas des DrawingObjects et peut-etre des DrawingObjects qui ne sont pas des Shapes
Fais des exploration a base de

For n=1 to Shapes.count '(ou DrawingObjects.count)
  msgbox(Shapes(n).Name) ' ou  DrawingObjects(n).Name
next n