幻灯片宏中心对齐单个文本框来滑动

我想中心对齐大型演示文稿中的文本框。每张幻灯片包含各种形状，但只有一个文本框中包含文本，我希望该文本框与幻灯片的中心对齐。目前，我有一行代码可以使文本中心在自己的文本框中对齐，但我想知道是否有在幻灯片中间创建文本框的方法？幻灯片宏中心对齐单个文本框来滑动

Sub TextSize() 

    Dim oSl As Slide 
    Dim oSh As Shape 


    With ActivePresentation 

For Each oSl In .Slides 
    For Each oSh In oSl.Shapes 
     With oSh 
      If .HasTextFrame Then 
       If .TextFrame.HasText Then 
        .TextFrame.TextRange.Font.Size = 26.5 

        ' change the code to make the text box centre aligned to the slide 
        .TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter 


       End If 
      End If 
     End With 
    Next 
Next 

    End With 

    End Sub

来源

2014-09-25 Abby

戈帕尔指出你在正确的方向。在您的代码中心文本后，添加以下内容：

.Left = ActivePresentation.PageSetup.SlideWidth/2 - .Width/2 
.Top = ActivePresentation.PageSetup.SlideHeight/2 - .Height/2

来源

2014-09-26 15:04:48

这工作完美，非常感谢您的时间和建议。 – Abby 2014-10-01 12:26:28

虽然没有提及，但如果你是通过VBA代码的幻灯片（如this文档解释）添加文本框，然后我猜文本框没有属性获得直接对准到幻灯片一个特定的时尚（集中在你的情况）。

话虽如此，我还指向一个可能的解决方法可以是在一个比率成比例设置的文本框的顶和左性质幻灯片的高度和宽度选择为您的演示文稿。

这我觉得应该集中对齐文本框。

来源

2014-09-26 10:21:47 gkb

非常感谢您，正如您所建议的那样，我现在已经学会了使用比例比率进行对齐。 – Abby 2014-10-01 12:27:37

幻灯片宏中心对齐单个文本框来滑动

回答

相关问题