VBA listbox that makes single slicer selection

[Krisla]

Dear community,

I am very new to VBA, and my request might be basic but I struggled to find clear instruction on how to do it...

I am building a macro that creates a Powerpoint presentation for each slicer selction (slicer is connected to multiple tables and views). Only 1 slicer where I have to select 1 brand at the time, and it will create the presentation and save it with the selected brand name.

I have a listbox where you hve to doubleclick the brand, but how do I connect this box selection to my slicer?

Private Sub DivisionName_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

The rest of the macro is ready...

Sub CreatePowerPoint()
Dim myPresentation As PowerPoint.Presentation
Dim TemplateLocation As String
Dim PowerPointApp As PowerPoint.Application
Dim activeSlide As PowerPoint.Slide
Dim cht As Excel.ChartObject



'Opens Template PowerPoint
Set PowerPointApp = CreateObject("PowerPoint.Application")
TemplateLoaction = "C:\Users\kslavulj\Desktop\POWERPOINT Automation\Template\EMEA SIOP Template.pptx"
PowerPointApp.Presentations.Open (TemplateLoaction)
.................


Let me know if you need any further information


Thanks

Krisla

 

[DanteAmor]

Let's start with the following, with this code you will open a PowerPoint and save it with the selected data in the listbox with double click

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)


    Dim ObjPowerPoint As New PowerPoint.Application
    Dim Presentacion As PowerPoint.Presentation
    Dim activeSlide As PowerPoint.Slide
    Dim TemplateLocation As String
    Dim wName As String, wPath As String
    '
    wPath = "C:\Users\kslavulj\Desktop\POWERPOINT Automation\Template\"
    'wPath = ThisWorkbook.Path & "\"
    If Right(wPath, 1) <> "\" Then wPath = wPath & "\"
    wName = ListBox1.List(ListBox1.ListIndex)
    '
    TemplateLocation = ThisWorkbook.Path & "\EMEA SIOP Template.pptx"
    ObjPowerPoint.Visible = True
    ObjPowerPoint.Presentations.Open Filename:=TemplateLocation
    Set myPresentation = ObjPowerPoint.ActivePresentation
    '
    myPresentation.SaveAs wPath & wName & ".pptx"
    myPresentation.Close
    ObjPowerPoint.Quit
    
    Set myPresentation = Nothing


End Sub

I guess the next part is putting information in the slicer, but I did not understand what you're going to put.

Let me know if you have any question.