Discussion :

[frto0]

Bonjour,

Dans une fenêtre vérrouillée, je crée des shapes que l'utilisateur peut être amené à bouger.
Vu que la feuille est vérouillée, il faut que les propritées "Vérrouillé" et "Text Vérouillé" soit désactivées pour pouvoir faire ce que je veux.



Dans le code j'arrive bien a travaillé sur mon élément, par contre je ne vois pas comment accéder aux propriétés "Vérrouillé" et "Text Vérouillé"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
f.Shapes(NomShape).Fill.ForeColor.RGB = RGB(221, 217, 195)
            f.Shapes(NomShape).TextFrame.Characters.Text = TextVrai
            f.Shapes(NomShape).TextFrame.Characters(Start:=1, Length:=LongText).Font.Bold = False
            f.Shapes(NomShape).TextFrame.Characters(Start:=1, Length:=LongText).Font.Color = RGB(0, 0, 0)
            f.Shapes(NomShape).TextFrame.Characters(Start:=1, Length:=LongText).Font.Size = 12
 
            'Dimmensionnement en point
            f.Shapes(NomShape).Height = 14
            f.Shapes(NomShape).Width = 50
 
            'On repositionne à la place par défaut car pas de bouton à gérer
                f.Shapes(NomShape).Top = ValTop
                f.Shapes(NomShape).Left = ValLeft

Merci