| auteur : SilkyRoad |
Cette macro récupère l'adresse des cellules placées sous la 1ere forme automatique de la Feuil1.
Vba |
Sub PositionFormeAutomatique ()
Dim Shp As Shape
Set Shp = Feuil1. Shapes (1 )
MsgBox Shp. TopLeftCell . Address & " : " & Shp. BottomRightCell . Address
End Sub
|
|
| auteur : SilkyRoad | Vba |
With Worksheets (" Feuil1 " ). Shapes . AddShape (msoShapeRectangle, 40 , 80 , 140 , 50 )
. Name = " NomForme "
. TextFrame . Characters . Text = " Le texte dans la forme "
End With
|
|
| auteur : SilkyRoad |
3 exemples:
Vba |
Dim Sh As Shape
For Each Sh In ActiveSheet. Shapes
Sh. Delete
Next
|
Vba |
Do Until ActiveSheet. Shapes . Count = 0
ActiveSheet. Shapes (1 ). Delete
Loop
|
Vba |
ActiveSheet. Shapes . SelectAll
Selection. Delete
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2008
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|