DELETE A POWERPOINT SLIDE IF LINKED CELL FROM EXCEL = 0

[Solutionmatt]

Hi All!

First timer here!

Is it possible to remove/hide PowerPoint slides if the excel cell that is linked in to the slide has it a value of 0?

I've read seen numerous VBA that will remove an array of slides based in "case"

But, really need the former........

Any help will be appreciated guys ?

 

[Rijnsent]

Yes, that's probably possible with VBA. Do you have some code already?

 

[Solutionmatt]

the only one i have found is this below,

Sub RemoveUnwantedSlides()

Dim A() As Long

Dim I As Long

ReDim A(StartIndex To StopIndex)

For I = StartIndex To StopIndex: A(I) = I: Next

MyRange = A



'The file name and path of the file to update

sourceFileName = "C:\Users\Children.pptm"

Set pptApp = New PowerPoint.Application

Set pptPresentation = pptApp.Presentations.Open(sourceFileName)



pptApp.Activate



Dim ppSlidesArr As Variant



Select Case Range("A1").Value

Case 1

ppSlidesArr = MyRange(64, 65)



Case 2

ppSlidesArr = MyRange(85, 92)



Case 3

ppSlidesArr = MyRange(76, 83)



End Select

is there a way anyone can alter this so it deletes the slides with 0 value in linked cell?

i'll be forever in your debt guys.

Thanks