找回密码
 立即注册
搜索

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

2
回复
816
查看
[复制链接]

5

主题

7

帖子

56

幻币

一流武者

Rank: 3Rank: 3

积分
221
QQ
2018-12-23 17:59:34 显示全部楼层 |阅读模式
如题,如何使用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
PPT学习论坛
回复

使用道具 举报

1

主题

6

帖子

97

幻币

一流武者

Rank: 3Rank: 3

积分
304
QQ
2018-12-23 20:54:15 显示全部楼层
自己顶一个
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

9

帖子

16

幻币

一流武者

Rank: 3Rank: 3

积分
201
QQ
2018-12-23 21:02:20 显示全部楼层
你是想让文本框或图片在舞台页面上左右居中或上下居中吗?若是,请参考以下代码:
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
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册