vba - Powerpoint VBA - 如何将文本框添加到多张幻灯片
问题描述
因此,我使用以下代码将文本框添加到几张幻灯片的标题中:
Set myDocument = ActivePresentation.Slides.Range(Array(4, 5, 6))
Set newTextBox = myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
260, Top:=30, Width:=541.44, Height:=43.218)
With newTextBox.TextFrame.TextRange
.Text = "Test Text"
.Font.Size = 17
.Font.Name = "Arial"
End With
当我运行此代码时,我收到一个自动化错误并且它不起作用。如果我在一张幻灯片上这样做,它确实有效。有谁知道为什么?我试图做的是将标题添加到特定幻灯片。所以我将使用相同的方法为其他幻灯片添加不同的标题。
解决方案
幻灯片没有标题。但这里的代码可以工作:
Sub AddTextBoxes()
Dim oSlide As Slide
Dim oShape As Shape
For Each oSlide In ActivePresentation.Slides
If oSlide.SlideIndex = 4 Or oSlide.SlideIndex = 5 Or oSlide.SlideIndex = 6 Then
Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=260, Top:=30, Width:=541.44, Height:=43.218)
With oShape.TextFrame.TextRange
.Text = "Test Text"
.Font.Size = 17
.Font.Name = "Arial"
End With
End If
Next oSlide
End Sub
推荐阅读
- java - 部署 javafx 应用程序后出错
- c++ - 如何使用 std::uniform_int_distribution
::参数()? - c++ - 如何将字符串数组传递给 main()
- ld - 使用 ld 对“跳过不兼容的库”进行故障排除
- ios - 为什么我的 swift 代码不能处理 firebase 电子邮件身份验证?
- arrays - 如何找到具有匹配值序列的行范围
- mysql - 仅当特定列在同一天内有两个或多个不同的 ip_address 时才选择记录
- algorithm - 将有角度的文本 OCR 合并为行
- angular - 从 api 加载角度 ag-grid 数据
- spacy - 使用 spacy 匹配器查找目标句子的开头后打印句子的其余部分