je souhaite créer une liste déroulante sous powerpoint et lui paramétrer 3
valeurs différentes comment puis je faire?
Si quelqu'un connaît un tutoriel complet sur powerpoint je suis preneur
> je souhaite créer une liste déroulante sous powerpoint et lui paramétrer 3
> valeurs différentes comment puis je faire?
Tu ne dis pas quelle action doit être provoquée lors de la sélection d'un
élément de la liste.
Voici un exemple qui permet de changer simplement de diapo. Pour le mettre
en oeuvre :
- dans le masque des diapositives (afin d'avoir la liste sur chaque diapo),
clic droit dans une des barres d'outils | Boîte à outils Contrôles
- sélectionne l'outil "Zone de liste déroulante" et dessine ta liste
- clic droit sur la liste | Visualiser le code
- entre les lignes Private Sub ComboBox1_Change() et End Sub, copie/colle le
code ci-dessous :
If ComboBox1.ListIndex = -1 Then Exit Sub
SlideShowWindows(1).View.GotoSlide ComboBox1.ListIndex + 1
- copie/colle sous le End Sub précédent le code suivant :
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
With ComboBox1
.AddItem "Diapositive 1"
.AddItem "Diapositive 2"
.AddItem "Diapositive 3"
.AddItem "Diapositive 4"
End With
End Sub
- ferme la fenêtre VBE (Visual Basic Editor) et fais un essai. Pour revenir
rapidement dans le code, <Alt><F11>
> Si quelqu'un connaît un tutoriel complet sur powerpoint je suis preneur
Le meilleur "tutoriel" est sans doute l'aide du logiciel ainsi que les
forums, notamment US (beaucoup plus riches) sur le sujet, car ils répondent
à un moment donné à un besoin précis.
Mais, en l'occurrence, c'est plus d'un tutoriel VBA dont tu as besoin que de
celui de PowerPoint.
Quelques adresses de sites :
http://www.echosvoice.com/index.htm
http://www.pptworkbench.com/index.htm
http://www.rdpslides.com/pptfaq/
http://skp.mvps.org/
http://www.soniacoleman.com/
etc.
--
Tisane
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"Mitch" <Mi...@discussions.microsoft.com> a écrit dans le message news:
71F6AE5D-9DF5-4B4B...@microsoft.com...
> Pour compléter Tisane : à la place de diapositive 1 (diapositive 2, etc)
> dans le code, entre le titre de la diapo au lieu de 1 ou 2, etc...
Heureusement que tu es là ;-))
Mais je n'ai pas cru comprendre que Mitch voulait obligatoirement mettre la
liste des diapos comme items dans sa liste déroulante, mais des valeurs qui
n'ont sans doute rien à voir.
Par exemple, cela peut être des années, des services, des lieux, etc.
--
Tisane
Pour détailler la finlité de la chose voilà en fait ce que je dois faire:
je dois faire une maquette avec powerpoint d'un PC de régulation de trafic
urbain. Sur une des diapos il apparaît un carrefour et dans le menu des
actions possibles pour le régulateur j'ai mis en place 3 éléments de contôles
types "optionbutton"
- Clignotant
- Extinction
- Autonome
je souhaite activer la liste déroulante "DuréeCycle" seulement quand
"autonome" est acitvé et dans cette liste je veux que l'opérateur puisse
choisir entre
- 1 min
- 2min
- 3min
"Tisane" a écrit :
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"Tisane" <b.ti...@laposte.net> a écrit dans le message news:
u0SRfpOn...@TK2MSFTNGP03.phx.gbl...
> Pour détailler la finlité de la chose voilà en fait ce que je dois faire:
> je dois faire une maquette avec powerpoint d'un PC de régulation de trafic
> urbain. Sur une des diapos il apparaît un carrefour et dans le menu des
> actions possibles pour le régulateur j'ai mis en place 3 éléments de
> contôles
> types "optionbutton"
> - Clignotant
> - Extinction
> - Autonome
> je souhaite activer la liste déroulante "DuréeCycle" seulement quand
> "autonome" est acitvé et dans cette liste je veux que l'opérateur puisse
> choisir entre
> - 1 min
> - 2min
> - 3min
Il y a sûrement plus "pro" mais tu peux masquer la liste sur Clignotant et
Extinction et l'afficher déroulée automatiquement sur Autonome.
Private Sub Clignotant_Click()
DuréeCycle.Visible = False
End Sub
Idem pour Extinction
Private Sub Autonome_Click()
DuréeCycle.Visible = True
DuréeCycle.DropDown
End Sub
Dans le code de la liste bien sûr, tu remplaces "diapositive x" par "x min",
mais tu l'avais deviné ;-)
--
Tisane
désolé de ressortir des profondeurs ce topic, mais je viens de le trouver
très bonne l'idée de Jean-Pierre mais si on l'applique que faut-il mettre à la
place de
SlideShowWindows(1).View.GotoSlide ComboBox1.ListIndex + 1
car mes diapos ne sont pas la 1 la 2 ...., comment faire un renvoi sur le titre
de la diapo
merci d'avance
Philippe
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
With ComboBox1
.AddItem "Présentation"
.AddItem "Résultats"
.AddItem "Export"
.AddItem "Annexes"
End With
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
SlideShowWindows(1).View.GotoSlide ComboBox1.ListIndex + 1
End Sub
"phulms" <phu...@domain-xyz.in> a écrit dans le message de news:
jvydnRz9hqi...@giganews.com...
cherchant toujours une réponse à ma question je suis tombé sur votre réponse
alors que je l'ai posé sur un autre forum qui reste muet
aussi merci beaucoup d'y avoir répondu, mais je n'ai pas été assez clair
dans la liste je souhaite avoir
.AddItem "Présentation"
.AddItem "Résultats"
.AddItem "Export"
.AddItem "Annexes"
pour ca c'est ok
mais ma diapo présentation est la 23
ma diapo résultats est la 15
ma diapo Export est la 12
et ma diapo Annexes est la 35
elles ne se suivent pas avec un incrément de 1
comment renvoyer vers le bon n° de diapo ou directement sur le titre
merci d'avance pour la réponse et meilleurs voeux pour 2009
Philippe
super merci pour la réponse, je surveillais sur l'autre forum et en
cherchant toujours une réponse je suis tombé sur ce forum
je n'est pas été assez précis dans ma question
je suis ok sur la liste
.AddItem "Présentation"
.AddItem "Résultats"
.AddItem "Export"
.AddItem "Annexes"
c'est ce que j'avais fait
mais ma diapo présentation est la 23
ma diapo résultats est la 12
ma diapo export est la 9
ma diapo Annexes est la 41
mes diapos de la liste ne se suivent pas et pas avec un incrément
comment faire pour renvoyer sur le bon n° ou sur le titre de la diapo
merci d'avance pour la réponse et melleurs voeux pour 2009
Philippe
super merci pour la réponse, je surveillais sur l'autre forum et en
cherchant toujours une réponse je suis tombé sur ce forum
je n'est pas été assez précis dans ma question
je suis ok sur la liste
.AddItem "Présentation"
.AddItem "Résultats"
.AddItem "Export"
.AddItem "Annexes"
c'est ce que j'avais fait