Couleur d'une zone de texte
Le
Apitos

Bonsoir à tous,
Comment récupérer la couleur d'une zone de texte msoTextBox sur une feu=
ille ?
Merci
Comment récupérer la couleur d'une zone de texte msoTextBox sur une feu=
ille ?
Merci
'---------------------------------
Sub test()
Dim A As Long, B As Long
With Worksheets("Feuil1")
A = .Shapes("ZoneTexte 1").OLEFormat.Object.Border.Color
'OU
B = .Shapes("ZoneTexte 1").OLEFormat.Object.Border.ColorIndex
End With
End Sub
'---------------------------------
MichD
--------------------------------------------------------------
Le code reprend la couleur de la bordure et non pas celle du remplissage de la forme !?
Dim A As Long, B As Long, C As Long, D As Long
Dim Sh As TextBox
With Worksheets("Feuil1")
'Pour récupérer la couleur de la bordure
A = .Shapes("ZoneTexte 1").OLEFormat.Object.Border.Color
'OU
B = .Shapes("ZoneTexte 1").OLEFormat.Object.Border.ColorIndex
'Pour récupérer la couleur du Texte de la zone de texte
C = .Shapes("ZoneTexte 1").OLEFormat.Object.Interior.Color 'Ou colorIndex
'Pour récupérer la couleur du texte de la zone de texte
D = .Shapes("ZoneTexte 1").OLEFormat.Object.Characters.Font.Color 'Ou colorIndex
End With
End Sub
MichD
--------------------------------------------------------------
Merci.
et tu cliques dans un deuxième temps sur la zone de texte...
Sub test()
Dim A As Long, B As Long, C As Long
Dim X As String, D As Long
Dim Sh As TextBox
With Worksheets("Feuil1")
X = Application.Caller
With .Shapes(X).OLEFormat.Object
'Pour récupérer la couleur de la bordure
A = .Border.Color
'OU
B = .Border.ColorIndex
'Pour récupérer la couleur du fond de la zone de texte
C = .Interior.Color 'Ou colorIndex
'Pour récupérer la couleur du texte de la zone de texte
D = .Characters.Font.Color 'Ou colorIndex
End With
End With
End Sub
MichD
--------------------------------------------------------------