Sur quelques diapos j'ai aussi quelques combobox avec le même contenu.
Normalement, le code que j'ai fait ça marche, mais je voulais savoir s'il existe une métode plus courte pour ne pas devoir copier à chaque fois le contenu de combobox.
merci d'avance, et voilà 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 Sub weeklyrapport() Dim oShape As Shape Set oShape = ActivePresentation.Slides(23).Shapes("ComboBox1") With oShape.OLEFormat.Object .Clear .AddItem ("To manage back office team in Mar") .AddItem ("To monitor FAL performance in Poland") .AddItem ("To get through QG 3") Set oShape = ActivePresentation.Slides(23).Shapes("ComboBox2") With oShape.OLEFormat.Object .Clear .AddItem ("To manage back office team in Mar") .AddItem ("To monitor FAL performance in Poland") .AddItem ("To get through QG 3") Set oShape = ActivePresentation.Slides(23).Shapes("ComboBox3") With oShape.OLEFormat.Object .Clear .AddItem ("To manage back office team in Mar") .AddItem ("To monitor FAL performance in Poland") .AddItem ("To get through QG 3") End with End with End with End Sub
Partager