Affichage de zone de texte.

Marsh Posté le 18-07-2007 à 11:21:34

Bonjour Forum, à toutes et à tous,

Malgré mes recherches sur l'aide d'excel et sur internet, je n'ai pas trouvé comment faire pour que ma zone de texte s'affiche sans bordure, et que le fond de celle-ci soit tranparente. Et malhereusement l'enregistrement Macro ne me donne rien du tout lorsque je passe pas clic droit/Fromat ed la zone de texte.

Voici mon code pour creer la zone de texte.

Code :

Set myDocument = WorkSheets(1)
With myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 320,95,250,30).TextForm
.Characters.Text = "Test text box"
.Characters.Font.Size= 19
End With

Merci d'avance pour votre aide!

Julien.

Marsh Posté le 18-07-2007 à 11:21:34

Marsh Posté le 18-07-2007 à 13:47:41

D'abord dans ton With, ça serait pas plutôt .TextFrame au lieu de .TextForm (ça dépend peut-être de la version d'Excel) ?

Sinon, il faut utiliser la propriété « .Fill.Transparency » de ton objet Shape

Dim mydocument As Worksheet
Dim t As Shape

Set mydocument = Worksheets(1)
Set t = mydocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 320, 95, 250, 30)
With t
.TextFrame.Characters.Text = "Test text box"
.TextFrame.Characters.Font.Size= 19
.Fill.Transparency = 1#
End With

Marsh Posté le 18-07-2007 à 15:24:45

Hello tegu,

Merci beaucoup !!! ça marche impec!

Et par hasard ne saurais tu pas comment retirer également la bordure de la zone de texte?

Merci.

Marsh Posté le 18-07-2007 à 15:30:12

Comme pour .Fill, il existe .Line qui doit comporter des propriétés similaires pour faire ça je pense.

Message édité par tegu le 18-07-2007 à 15:30:22

Marsh Posté le 18-07-2007 à 15:36:32

Merci pour ton aide Tegu.

Pour info on sait jamais pour les autres la syntaxe est :

.Line.Transparency = 1#

Bonne journée à tous!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *