Question : Populate a listbox from a Powerpoint Userform from data in a separate excel book

I have developed a userform in powerpoint in which i need to populate a listbox from data in a separate excel workbook. Since this list will change depending on who is running the presentation, i need the list to be dynamic.

I am currently hard coding the values in the listboxes, but need it to be dynamically pulling from a standard excel workbook range.

Thanks...
Code Snippet: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Private Sub UserForm_Initialize()
        Me.lbHoldings.Clear
 
        With Me.lbHoldings
            .Clear
            .AddItem "US"
            .AddItem "Canada"
            .AddItem "Mexico"
            .AddItem "UK"
        End With
        
End Sub
Open in New Window Select All

Answer : Populate a listbox from a Powerpoint Userform from data in a separate excel book

Something like to code below.

You need to enable Microsoft Excel Object library in your VBE references (Tools > References)

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Private Sub CommandButton1_Click()
 
Dim AppXL As Excel.Application
Set AppXL = GetObject(, "Excel.Application")
'OR
'set appXl=GetObject("Full Path and Name to Excel File")
Dim rngItem As Range
 
lbHoldings.Clear
 
For Each rngItem In AppXL.Range("MyRange")
    lbHoldings.AddItem (rngItem.Text)
Next rngItem
 
Set AppXL = Nothing
 
End Sub
Open in New Window Select All
Random Solutions  
 
programming4us programming4us