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

我需要使用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"

---

帮我做这个

如何

lblHi.Caption=“Hello2”

？否。我无法获取此id（lblHi）。我只是想加上一句，看看lblHi.Caption=“Hello2”怎么样？不，我无法获得这个id（lblHi）。我只是加了一张支票