insértion forme auto. -> ActiveSheet.Shapes.AddShape(msoShapeOval.......

[lindapec]

Bonjour,

Je souhaite insérer une forme automatique grâce à un bouton de commande.
Comme tous les débutants, j'ai utilisé l'enregistreur de macro pour faire ce que je voulais et voilà ce j'ai obtenu :


Sub Ovale()

ActiveSheet.Shapes.AddShape(msoShapeOval, 587.25, 213, 232.5, 73.5).Select
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset38
Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
msoAlignCenter
End Sub

Ce que je voudrai, c'est insérer la forme automatique à l'endroit de ma cellule active.
Comment dois-je faire pour remplacer la position absolue enregistrée par la macro par celle de ma cellule active?

Merci à ceux qui voudront bien m'aider.

 

[Cousinhub]

Re : insértion forme auto. -> ActiveSheet.Shapes.AddShape(msoShapeOval.......

Bonsoir,

Essaie ainsi :

Sub Ovale()
Dim Shp As Shape
Set Shp = Sheets("Feuil1").Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, 200, 70)
' .AddShape(forme, position gauche, position haute, largeur, hauteur)
With Shp
    .ShapeStyle = msoShapeStylePreset38
    .TextFrame2.TextRange.Font.Bold = msoTrue
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
    .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
End With
End Sub

bonne soirée

 

[lindapec]

Re : insértion forme auto. -> ActiveSheet.Shapes.AddShape(msoShapeOval.......

Merci bhbh,

C'est ce que je voulais.
Merci bien.
Bonne soirée.