Questions générals sur les objets

[ZDidier]

Bonjour à tous.

J'avais une grande question général sur les objects que l'on inserre dans une pages excell :

Prenons par exemple la commande suivante :

Dim objFeuille As Worksheet, objShape As Shape
Set objFeuille = ActiveSheet
Set objShape = objFeuille.Shapes.AddPicture("http://weather.noaa.gov/pub/fax/PPVA89.TIF", msoFalse, msoCTrue, 200, 200, 173, 215)

J'ai donc créé dans ma page active un objet picture.


Ma grande question :
Je voulais savoir dans mon script comment récupérer les objets présents.
(du type findobj sur MAtlab pour ceux qui connaissent)

Le but étant de pouvoir, après selection d'un objet en particulier de pouvoir le manipuler à ma guise. (dénommer, effacer, changer le nom / source, déplacer, ect...)

Merci d'avance.
Et très bon Réveillons à tous

Didier

 

[kjin]

Re : Questions générals sur les objets

Bonsoir,
Il y a 2 possibilités, mais je préfère la seconde
Soit tu connais l'Index de la forme, c'est à dire la position que tient la forme dans la liste des formes de ta feuille s'il y en a plusieurs
Ici Index 2 parce qu'il y a déjà un bouton dont l'Index est donc 1

Sub macro1()
Dim objShape As Shape
With ActiveSheet
    Set objShape = .Shapes.AddPicture("http://weather.noaa.gov/pub/fax/PPVA89.TIF", msoFalse, msoCTrue, 200, 200, 173, 215)
    .Shapes(2).Select
    End With
End Sub

Soit tu renommes la forme à sa création et pour la rappeler, il suffit d'indiquer son nom

Sub macro1()
Dim objShape As Shape
With ActiveSheet
    Set objShape = .Shapes.AddPicture("http://weather.noaa.gov/pub/fax/PPVA89.TIF", msoFalse, msoCTrue, 200, 200, 173, 215)
    objShape.Name = "PapaNoel"
    .Shapes("PapaNoel").Select
End With
End Sub

A+
kjin

 

[ZDidier]

Re : Questions générals sur les objets

Merci Kjin.
LA solution 2 est parfaite : car je ne connais pas le moyen de récupérer la position de la forme dans la feuille.

Merci et Joyeux Noel
Didier