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:Nom : bouton.jpg Affichages : 240 Taille : 18,8 Ko

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