Easy-Micro


ESPACEMEMBRE VBA
Objet Shapes

L'objet formes automatiques (Shapes)

Sub proc_forme_automatique()

' Afficher le contenu de la cellule A1 dans une forme automatique.
On sélectionne la forme et on saisie, dans la barre des formule, la formule =A1


' Récupère le texte d'une forme automatique
MsgBox ActiveSheet.Shapes("Forme automatique 1").TextFrame.Characters.Text

'Ecrire du texte dans une forme
ActiveSheet.Shapes("Forme automatique 1").TextFrame.Characters.Text = "Hello tous le monde"
ActiveSheet.Shapes("Forme automatique 1").TextFrame.HorizontalAlignment = xlCenter
ActiveSheet.Shapes("Forme automatique 1").TextFrame.Characters.Font.Bold = True

'Ajouter une nouvelle forme et un texte (voir la propriété MsoAutoShapeType)
With Worksheets("Feuil1").Shapes.AddShape(msoShapeRoundedRectangle, 40, 80, 140,50)
.Name = "MaForme"
.TextFrame.Characters.Text = "Le texte dans la forme"
End With

'Supprimer toutes les formes
ActiveSheet.Shapes.SelectAll
Selection.Delete

'De la couleur de fond (de 1 à 80 par défaut 9 - blanc )
' ou bien avec Fill.ForeColor.RGB = RGB(255, 255, 255)

ActiveSheet.Shapes("Forme automatique 1").Fill.ForeColor.SchemeColor = 50

' Couleur du cadre
ActiveSheet.Shapes("Forme automatique 1").Line.ForeColor.SchemeColor = 60

End Sub

Pour plus d'infos, voir Developpez.com et Developpez.com


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Jeudi 17 janvier 2019 - Semaine 03 - Sainte Roseline (Demain: Sainte Prisca)
Aujourd'hui, c'est l'anniversaire de Françoise Hardy (1944-75 ans), chanteuse française (1962: Tous les garçons et les filles) et de Dalida (1933-1987), chanteuse et actrice française. Autre 17 janvier: 1706 - Naissance de Benjamin Franklin (mort le 17 avril 1790).
Haut de page Easy-Micro