如何用代码，把每页图下的文字放到图上的标题框内，并居中加粗。

zzpsx · 发表于 2023-3-21 08:16

本帖最后由 zzpsx 于 2023-3-21 08:27 编辑

如何用代码，把每页图下的文字放到图上的标题框内，并居中加粗。
也就是说，把图下的abrahamlincoln109275，提到图上的标题框内，并居中加粗。

如何用代码，把每页图下的文字放到图上的标题框内，并居中加粗。.rar (278.42 KB, 下载次数: 7)

wangxu188 · 发表于 2023-3-21 09:18

这是PPT哎... 是不是可以先做要图框，将字体加粗.

剑指E · 发表于 2023-3-21 09:47

~~~~~~~~~~

ZHLK · 发表于 2023-3-21 10:19

Sub demo()
Dim shp As Shape
For i = 2 To ActivePresentation.Slides.Count
      Set myDocument = ActivePresentation.Slides(i)
      myDocument.Shapes("Title 1").TextFrame2.TextRange.Text = myDocument.Shapes("Group 5").GroupItems(2).TextFrame2.TextRange.Text
      myDocument.Shapes("Group 5").GroupItems(2).TextFrame2.TextRange.Characters.ParagraphFormat.Alignment = msoAlignCenter
Next i
End Sub

zzpsx · 发表于 2023-3-21 10:27

问题已经解决，谢谢高手们。

smiletwo · 发表于 2023-3-21 13:12

perfect131 · 发表于 2023-3-21 13:45

11111111111

		自动登录	找回密码
密码			免费注册

如何用代码，把每页图下的文字放到图上的标题框内，并居中加粗。

评分

评分