Beste,
Ik wil graag een afhankelijke keuzelijst maken in PowerPoint.
Ik ben al een eind gekomen, maar loop vast bij de tweede keuzelijst. Ik heb wat verwijzingen geprobeerd als code, maar blijf of niks of alles krijgen.
Ik kan het ook nergens vinden voor PowerPoint/VBA
Ik wil graag dat als iemand in de eerste keuzelijst een categorie kiest je in de tweede keuzelijst de onderwerpen te zien krijgt en kan kiezen welke bij de categorie hoort.
Dus keuze categorie: 1 categorie A -> keuzelijst met onderwerp 1.1, 1.2 enz.
Kan iemand hierbij helpen?
alvast bedankt voor de hulp.
Groeten Viola
Ik wil graag een afhankelijke keuzelijst maken in PowerPoint.
Ik ben al een eind gekomen, maar loop vast bij de tweede keuzelijst. Ik heb wat verwijzingen geprobeerd als code, maar blijf of niks of alles krijgen.
Ik kan het ook nergens vinden voor PowerPoint/VBA
Ik wil graag dat als iemand in de eerste keuzelijst een categorie kiest je in de tweede keuzelijst de onderwerpen te zien krijgt en kan kiezen welke bij de categorie hoort.
Dus keuze categorie: 1 categorie A -> keuzelijst met onderwerp 1.1, 1.2 enz.
Kan iemand hierbij helpen?
alvast bedankt voor de hulp.
Groeten Viola
Code:
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount = 0 Then AddDropDownItems
End Sub
Code:
Sub AddDropDownItems()
ComboBox1.AddItem " "
ComboBox1.AddItem "1 categorie A"
ComboBox1.AddItem "2 categorie B"
ComboBox1.AddItem "3 categorie C"
ComboBox1.AddItem "4 categorie D"
ComboBox1.AddItem "5 categorie E"
ComboBox1.AddItem "6 categorie F"
ComboBox1.AddItem "7 categorie G"
ComboBox1.AddItem "8 categorie H"
ComboBox1.AddItem "9 categorie I"
End Sub
Code:
Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
End Sub
Code:
Private Sub ComboBox2_GotFocus()
If ComboBox2.ListCount = 0 Then AddDropDownItems2
End Sub
Code:
Sub AddDropDownItems2()
ComboBox2.AddItem " "
ComboBox2.AddItem "1.1 subonderwerp"
ComboBox2.AddItem "1.2 subonderwerp"
ComboBox2.AddItem "1.3 subonderwerp"
ComboBox2.AddItem "1.4 subonderwerp"
ComboBox2.AddItem "2.1 subonderwerp"
ComboBox2.AddItem "2.2 subonderwerp"
ComboBox2.AddItem "2.3 subonderwerp"
ComboBox2.AddItem "2.4 subonderwerp"
ComboBox2.AddItem "3.1 subonderwerp"
ComboBox2.AddItem "3.2 subonderwerp"
ComboBox2.AddItem "4.1 subonderwerp"
ComboBox2.AddItem "4.2 subonderwerp"
ComboBox2.AddItem "5.1 subonderwerp"
ComboBox2.AddItem "5.2 subonderwerp"
ComboBox2.AddItem "6.1 subonderwerp"
End Sub
Code:
Private Sub TextBox1_Change()
End Sub
Code:
Private Sub TextBox2_Change()
End SubBijlagen
Laatst bewerkt door een moderator:
