Macro no Excel que trabalha com a macro no Power Point Compa
Enviado: 25 Fev 2016 às 16:45
Prezados, Boa Tarde!
Preciso de uma ajuda para se comunicar Macro Excel com Power Point, no arquivo em anexo detalho minha dúvida.
Resumindo essa macro roda legal, mas só que o arquivo do power point abre em modo de apresentação só no slide 3. gostaria que no excel na célula G8 o valor que tivesse nessa célula abrisse o slide.
MACRO NO EXCEL.
O procedimento Sub a seguir pressupõe que a apresentação PPTAutomation.ppt contém uma macro chamada "AutomationTest".
Sub PPTTest()
Dim PPT as Object
Set PPT = CreateObject("PowerPoint.Application")
PPT.Presentations.Open "C:\My Documents\PPTAutomation.ppt", , ,False
' Note that the file name and the module
' name are required to path the macro correctly.
PPT.Run "PPTAutomation.ppt!Module1.AutomationTest"
End Sub
MACRO NO POWER POINT
Sub AutomationTest()
With ActivePresentation.SlideShowSettings.Run.View
End With
Call gotoSlide
End Sub
Sub gotoSlide()
Application.SlideShowWindows(1).View.gotoSlide Index:=3
End Sub
Preciso de uma ajuda para se comunicar Macro Excel com Power Point, no arquivo em anexo detalho minha dúvida.
Resumindo essa macro roda legal, mas só que o arquivo do power point abre em modo de apresentação só no slide 3. gostaria que no excel na célula G8 o valor que tivesse nessa célula abrisse o slide.
MACRO NO EXCEL.
O procedimento Sub a seguir pressupõe que a apresentação PPTAutomation.ppt contém uma macro chamada "AutomationTest".
Sub PPTTest()
Dim PPT as Object
Set PPT = CreateObject("PowerPoint.Application")
PPT.Presentations.Open "C:\My Documents\PPTAutomation.ppt", , ,False
' Note that the file name and the module
' name are required to path the macro correctly.
PPT.Run "PPTAutomation.ppt!Module1.AutomationTest"
End Sub
MACRO NO POWER POINT
Sub AutomationTest()
With ActivePresentation.SlideShowSettings.Run.View
End With
Call gotoSlide
End Sub
Sub gotoSlide()
Application.SlideShowWindows(1).View.gotoSlide Index:=3
End Sub