Discussion :

[Master_x_99]

Bonjour,

J'ai un bouton déjà créé dans excel. J'aimerai le transférer en code. J'ai tenté de faire quelques manipulation. Mais je n'arrive jamais à mon résultat.

Voici le bouton:

Voici ce que j'ai comme code

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
Sub CreationBouton2()
 
 
 
 
    With Worksheets("Menu").Shapes.AddShape(msoShapeRoundedRectangle, 100, 450, 175, 75)
        With .Line
            .DashStyle = 1
            .Weight = 2.25
            .ForeColor.SchemeColor = 1
 
        End With
        With .TextFrame.Characters
            .Text = "TEXTE"
            With .Font
                .Name = "Arial"
                .Size = 12
                .ColorIndex = 1
            End With
        End With
        With .Fill
            .ForeColor.RGB = RGB(102, 153, 255)
 
 
        End With
    End With
End Sub

Je sais qu'il me faut ajouter un shadow dans la forme et un effet 3D de grandeur 6.

En fait je n'ai aucune idée si l'effet 3D peut se faire en code.

Merci de votre aide

[parmi]

Bonjour,

Normalement, en utilisant l'enregistreur de macro, tu devrais y trouver ton compte...

[Sebphyto]

Salut à vous,

Regarde ça

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
31
32
Sub CreationBouton2()
    With Worksheets("Menu")
       With .Shapes.AddShape(msoShapeRoundedRectangle, 100, 450, 175, 75)
 
        With .Line
                .DashStyle = 1
                .Weight = 2.25
                .ForeColor.SchemeColor = 1
            End With
            With .TextFrame.Characters
                .Text = "TEXTE"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .ColorIndex = 1
                End With
            End With
           With .Fill
               .ForeColor.RGB = RGB(102, 153, 255)
           End With
        End With
 
        With .Shapes.Range(Array(1)).Select '1 = "Rectangle à coins arrondis"
            With Selection.ShapeRange.ThreeD
                .BevelTopType = msoBevelCoolSlant 'msoBevelCircle
                .BevelTopInset = 13
                .BevelTopDepth = 6
            End With
        End With
 
    End With
End Sub

c'est ce que tu demandes???
seb

[Master_x_99]

Merci a vous deux pour votre aide.

Mais Parmi tu as réglé beaucoup de mes problèmes. avec l'enregistreur de macro.

Merci
Voici mon code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub CreationBouton2()
 
 
 
'Création bouton Janvier AGT
 
 
   With Worksheets("Menu").Shapes.AddShape(msoShapeRoundedRectangle, 100, 450, 147.75, _
        48).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(102, 153, 255)
        .Transparency = 0
        .Solid
    End With
    End With
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Shadow.Type = msoShadow22
    With Selection.ShapeRange.ThreeD
        .BevelTopType = msoBevelCircle
        .BevelTopInset = 6
        .BevelTopDepth = 6
    End With
    With Selection.ShapeRange.TextFrame2
        .VerticalAnchor = msoAnchorMiddle
        .HorizontalAnchor = msoAnchorNone
    End With
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "texte"
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignLeft
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
    With Selection.ShapeRange.TextFrame2.TextRange.Font
        .NameComplexScript = "Arial"
        .NameFarEast = "Arial"
        .Name = "Arial"
    End With
    Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 12
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
 
 
        Selection.OnAction = "Feuil9.Termine_agent_Janvier"
 
End Sub

Je dois encore une fois dire merci à tout ceux qui contribue à nous aider