Discussion :

[Jay-P]

Bonjour,

Je veux créer automatiquement une zone de texte sur une page excel.
J'utilise la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 750, 0, 375, 180).TextFrame.Characters.Text = ""

J'aimerais rajouter des instructions concernant la taille et le format du texte contenu dans ma zone. Comment faire?

Merci d'avance!

Et je veux également préciser l'encadrement de la zone.
Merci

[Invité]

Bonjour

Pour cela il faut que tu crées un objet Shape pour travailler avec, voici un petit exemple à tester pour voir le résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub AjoutZone()
    ' déclaration des variables
    Dim objShp As Shape
 
    ' création de la zone
    Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 750, 0, 375, 180)
    With objShp
        With .TextFrame.Characters
            .Text = "toto"
            .Font.Name = "Arial"
            .Font.Color = RGB(250, 0, 0)
            .Font.Size = 16
        End With
        .Line.Weight = 5
        .Line.ForeColor.RGB = RGB(250, 0, 0)
    End With
End Sub

Philippe

[sabzzz]

bonjour Jay-P,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Macro1()
Set moncadre = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 375#, 30#, 120#, 41.25)
 moncadre.OLEFormat.Object.Characters.Text = "ça y est"
    With moncadre.OLEFormat.Object.Characters(Start:=1, Length:=7).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
 
    With moncadre.OLEFormat.Object.ShapeRange
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Fill.ForeColor.SchemeColor = 65
    .Fill.Transparency = 0#
    .Line.Weight = 1.5
    .Line.DashStyle = msoLineSolid
    .Line.Style = msoLineSingle
    .Line.Transparency = 0#
    .Line.Visible = msoTrue
    .Line.ForeColor.SchemeColor = 64
    .Line.BackColor.RGB = RGB(255, 255, 255)
    End With
End Sub

[Jay-P]

Merci pour ces réponses.
Mon problème est résolu, et je comprends mieux la manipulation d'objets!