vba 代码如何让p p t的文本框居中

meskyer · 发表于 2019-4-1 08:34

本帖最后由 meskyer 于 2019-4-1 08:37 编辑

如题，如何使用vba将文本框或图片居中
我是这样写的，.TextFrame2.HorizontalAnchor = msoAnchorCenter  无效

Set newSlide = pptthis.slides.Add(2, 12)
With newSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 230, 700, 100)
'             .TextFrame.TextRange.Font.Color = vbRed
            .TextFrame.TextRange.Text = “pptname”
            .TextFrame.TextRange.Font.Size = 40
'             .TextFrame.TextRange.Font.name = "微软雅黑"
'             .TextFrame.TextRange.Font.NameAscii = "微软雅黑"
'             .TextFrame.TextRange.Font.NameOther = "微软雅黑"
            .TextFrame.TextRange.Font.NameFarEast = "微软雅黑"
            .TextFrame.TextRange.Font.Bold = msoTrue
            .TextFrame.HorizontalAnchor = msoAnchorCenter
            .TextFrame2.HorizontalAnchor = msoAnchorCenter

End With

meskyer · 发表于 2019-4-2 23:20

自己顶一个

leikaiyi123 · 发表于 2019-4-3 09:48

本帖最后由 leikaiyi123 于 2019-4-3 18:49 编辑

你是想让文本框或图片在舞台页面上左右居中或上下居中吗？若是，请参考以下代码：
Sub 相对页面水平居中()
On Error Resume Next
Dim paw%, shw% '页面宽，图形宽
Dim oShape As PowerPoint.Shape
If ActiveWindow.Selection.type = ppSelectionNone Then Exit Sub
paw = ActivePresentation.PageSetup.SlideWidth '磅
For Each oShape In ActiveWindow.Selection.ShapeRange
shw = oShape.Width
oShape.Left = (paw - shw) / 2
Next
End Sub

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

[求助] vba 代码如何让p p t的文本框居中

评分