如何在vba中从excel更新powerpoint中的标签标题

Question

我需要使用excel宏中的Powerpoint对象更新标签标题。我无法更新。

Dim objPpt As PowerPoint.Application
Dim objPre As Presentation
Dim objSlide As Slide
Dim objLayout As CustomLayout
Dim objTxtBox As Shape

Set objPpt = CreateObject("Powerpoint.Application")
Set objPre = objPpt.Presentations.Open("H:\Macro\SamplePpt.pptm")
ActivePresentation.Slides(1).lblHi.Caption = "Hello"
Set objSlide = objPre.Slides.Item(1)
Set objTxtBox = objSlide.Shapes.Item(1)

lblHi.Caption = "Hello"

帮我做这个.... !!!!