Selection.document.name ?

[Tom]

Bonjour,
Je voudrai inserer une image sur une feuille excel à partir d'une application vb. Voici mon code:

ActiveSheet.Pictures.Insert(SLogo).Select
Selection.document.Name = 'monimage'
Selection.ShapeRange.LockAspectRatio = msoFalse
    With ActiveSheet.Shapes('monimage')
        .Top = Range('d4').Top
        .Left = Range('d4').Left
        .Height = Range('d4:d7').Height
        .Width = Range('d4:f4').Width
    End With

Lorsque j'execute, j'ai ce message d'erreur :
'impossible d'affecter à 1 propriete en lecture seule' et la ligne incriminée est :
'Selection.document.Name ='
Auriez-vous une idée du pourquoi cette erreur ?

 

[Gorfael]

Tom écrit:

Bonjour,
Je voudrai inserer une image sur une feuille excel à partir d'une application vb. Voici mon code:

ActiveSheet.Pictures.Insert(SLogo).Select
[b]Selection.document.Name = 'monimage'[/b]
Selection.ShapeRange.LockAspectRatio = msoFalse
    With ActiveSheet.Shapes('monimage')
        .Top = Range('d4').Top
        .Left = Range('d4').Left
        .Height = Range('d4:d7').Height
        .Width = Range('d4:f4').Width
    End With

Lorsque j'execute, j'ai ce message d'erreur :
'impossible d'affecter à 1 propriete en lecture seule' et la ligne incriminée est :
'Selection.document.Name ='
Auriez-vous une idée du pourquoi cette erreur ?

Salut
Essaies de remplacer :
Selection.document.Name = 'monimage'
par
Selection.Name = 'monimage'

Si ça ne marche pas, passes par Menu outils>>Macro>>nouvelle macro
Tu sélectionnes ton image
tu modifies son nom
Tu arrêtes la macro et tu vas voir dans le code comment fait Excel
A+

 

[Tom]

Bon, j'ai compris, la propriete 'Picture' ne marche pas ! elle n'est tout simplement pas attribuée !!!! j'ai réussi à obtenir le résultat avec 'shape'
thanks ;-)