嘿，我来帮你把这个问题掰扯明白～

首先，咱们先搞清楚后期绑定为什么会不认这些常量：

• 当你用CreateObject("PowerPoint.Application")做后期绑定时，Excel并没有加载PowerPoint的类型库（也就是那些预定义的常量、对象类型定义都没导入）。
• 像msoTextOrientationHorizontal这种是PowerPoint类型库自带的常量，Excel根本不知道它代表什么数值，会把它当成一个未定义的变量，这就直接触发了“找不到命名对象”的错误448。
• 而你换成数值1就正常，是因为1就是msoTextOrientationHorizontal在PowerPoint里对应的实际值，直接传数值绕开了常量识别的问题。

然后说说为什么之前相同的代码能运行，大概率是这几种情况之一：

• 之前你用的是早期绑定：也就是在VBA编辑器里引用了「Microsoft PowerPoint xx.x Object Library」，这时候Excel加载了PowerPoint的类型库，所有常量都能正常识别，哪怕后来你把变量声明改成Object，如果引用没删，常量还是能被识别；但如果之后移除了这个引用，就会突然报错。
• 之前的代码模块里自己定义过这个常量：比如你之前在模块开头加过Const msoTextOrientationHorizontal = 1，后来不小心删掉了，就导致现在识别不了。
• 环境变化：比如换了一台电脑，或者重装了Office，新环境里没有保留之前的引用设置，从早期绑定变成了纯后期绑定。

给你的两个解决方案 #

1. 手动定义需要的常量：在你的VBA模块开头添加常量定义，这样后期绑定也能正常用常量名，可读性更好：

   Const msoTextOrientationHorizontal As Long = 1
   Const ppLayoutText As Long = 12 ' 你代码里用到的12也可以定义成常量
   
   Sub PPTextbox()
    Dim PowerPointApp As Object
    Dim myPresentation As Object
    Dim mySlide As Object
    Dim DestinationPPT As String
    Set PowerPointApp = CreateObject("PowerPoint.Application")
    DestinationPPT = "H:\VBA\Kapitalanlageplanung - Präsentationen\Monatsbericht\MonatsberichtTemplate.pptm"
    Set myPresentation = PowerPointApp.Presentations.Open(DestinationPPT)
    Set mySlide = myPresentation.Slides.Add(myPresentation.Slides.Count + 1, ppLayoutText)
    mySlide.Shapes.AddTextbox(Type:=msoTextOrientationHorizontal, Left:=100, Top:=100, Width:=200, Height:=50).TextFrame.TextRange.Text = "Test Box"
   End Sub
   

2. 切换回早期绑定：如果不需要跨版本兼容（比如用户都用相同版本的Office），可以在VBA编辑器的「工具」→「引用」里勾选对应的PowerPoint对象库，然后把变量声明改成具体类型，这样所有常量都能直接用，还能享受代码提示：

   Sub PPTextbox()
    Dim PowerPointApp As PowerPoint.Application
    Dim myPresentation As PowerPoint.Presentation
    Dim mySlide As PowerPoint.Slide
    Dim DestinationPPT As String
    Set PowerPointApp = New PowerPoint.Application ' 早期绑定用New创建对象
    DestinationPPT = "H:\VBA\Kapitalanlageplanung - Präsentationen\Monatsbericht\MonatsberichtTemplate.pptm"
    Set myPresentation = PowerPointApp.Presentations.Open(DestinationPPT)
    Set mySlide = myPresentation.Slides.Add(myPresentation.Slides.Count + 1, ppLayoutText)
    mySlide.Shapes.AddTextbox(Type:=msoTextOrientationHorizontal, Left:=100, Top:=100, Width:=200, Height:=50).TextFrame.TextRange.Text = "Test Box"
   End Sub
   

内容的提问来源于stack exchange，提问作者Alex