如何用VBA实现PowerPoint文本框新输入文本为深蓝色

手动快速设置（适合单次操作） #

• 选中目标文本框，把光标放到现有灰色文本的末尾（或者你要插入新内容的任意位置）
• 不要选中任何文本，直接点击顶部工具栏的「字体颜色」按钮，选择深蓝色
• 之后在光标位置输入的内容就会自动用深蓝色，完全不会改动原有灰色文本

要是不小心选中了部分文本，先点击文本框空白处取消选中，再设置字体颜色就行。

VBA宏自动设置（适合频繁使用场景） #

如果经常需要处理这类文本框，可以用宏自动帮你设置默认输入颜色：

1. 按下 Alt + F11 打开VBA编辑器
2. 右键点击左侧项目窗格里的当前演示文稿，选择「插入」→「模块」
3. 粘贴以下代码：

Sub SetNewTextColor()
    Dim selectedShape As Shape
    Set selectedShape = ActiveWindow.Selection.ShapeRange(1)
    
    ' 校验选中的是带文本的文本框
    If selectedShape.HasTextFrame And selectedShape.TextFrame.HasText Then
        ' 设置光标位置的默认字体颜色为深蓝色（RGB值可自行调整）
        With selectedShape.TextFrame.TextRange.Characters(selectedShape.TextFrame.TextRange.Length + 1, 0).Font
            .Color.RGB = RGB(0, 0, 139)
        End With
        ' 自动把光标定位到文本末尾
        ActiveWindow.View.Selection.TextRange.Start = selectedShape.TextFrame.TextRange.Length
    End If
End Sub

4. 关闭编辑器回到PowerPoint，选中目标文本框后按 Alt + F8 运行这个宏，之后输入的内容就会自动变成深蓝色

你还可以把这个宏添加到快速访问工具栏，不用每次都打开宏列表找它。

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