找回密码
 立即注册
搜索

求ppt 表格文本对齐方式为垂直居中vba代码

4
回复
1170
查看
[复制链接]

1

主题

7

帖子

52

幻币

江湖少侠

Rank: 2

积分
77
QQ
2018-10-31 11:45:19 显示全部楼层 |阅读模式
求ppt 表格文本对齐方式为垂直居中vba代码水平居中我摸索出来了 TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
但是垂直居中一直没思路,也找不到相关的文档,03的录制宏也录不出来
求大佬们指点,万分感激感谢!!!!!!!
PPT学习论坛
回复

使用道具 举报

4

主题

8

帖子

99

幻币

一流武者

Rank: 3Rank: 3

积分
307
2018-10-31 14:10:31 显示全部楼层
Sub ppt表格文本居中1()
    Dim oRow As Row
    On Error Resume Next
    For Each oRow In ActiveWindow.Selection.ShapeRange.Table.Rows
        For j = 1 To oRow.Cells.Count
            'oRow.Cells(j).Shape.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter   '水平居中
            oRow.Cells(j).Shape.TextFrame.HorizontalAnchor = msoAnchorCenter   '水平居中
            oRow.Cells(j).Shape.TextFrame.VerticalAnchor = msoAnchorMiddle     '垂直居中
        Next
    Next
End Sub

或:
Sub ppt表格文本居中2()
    Dim oRow As Row, oCell As Cell 'Row行 'Column列 'Cell单元格
    On Error Resume Next
    For Each oRow In ActiveWindow.Selection.ShapeRange.Table.Rows
        For Each oCell In oRow.Cells
            'oCell.Shape.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter   '水平居中
            oCell.Shape.TextFrame.HorizontalAnchor = msoAnchorCenter   '水平居中
            oCell.Shape.TextFrame.VerticalAnchor = msoAnchorMiddle     '垂直居中
        Next
    Next
End Sub
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

8

帖子

25

幻币

一流武者

Rank: 3Rank: 3

积分
311
QQ
2018-10-31 14:22:31 显示全部楼层
嗯嗯嗯,真的有用,谢谢大佬,太感谢大佬了,感激涕零,太开心了
PPT学习论坛
回复 支持 反对

使用道具 举报

4

主题

10

帖子

76

幻币

一流武者

Rank: 3Rank: 3

积分
211
QQ
2018-10-31 15:13:37 显示全部楼层
Set t = sh.Tablet.Rows(1).Cells.Borders.Item(ppBorderBottom).Weight = 1
如果是用
t.rows(1).+...的方式能表达垂直居中吗?
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

9

帖子

84

幻币

江湖少侠

Rank: 2

积分
160
QQ
2018-10-31 15:50:55 显示全部楼层
嗯嗯,还是需要cell
PPT学习论坛
回复 支持 反对

使用道具 举报

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