Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lindapec
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lindapec

Guest
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.
 
Trier par date Trier par votes
Re : insértion forme auto. -> ActiveSheet.Shapes.AddShape(msoShapeOval.......

Bonsoir,

Essaie ainsi :

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…