PPT内表格的字体大小如何使用VBA控制？

delanochen

我用VBA自动产生了N页的PPT，数据源来自于Excel。生成的PPT Slide中有表格，发现表格这个Shape无法控制字体大小，默认大小是18号字体。
谁有好办法能使用VBA代码把所有Slide上的表格字体统一变成14吗？

delanochen

我尝试使用下面的代码也不行。

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
For i = 1 To ActivePresentation.Slides.Count
    ActivePresentation.Slides(i).Select
    For Each o In ActivePresentation.Slides(i).Shapes
        Debug.Print i, o.Type
        If o.Type = 19 Then
            o.Select
            keybd_event 17, 0, 0, 0
            keybd_event 91, 0, 0, 0
            keybd_event 91, 0, KEYEVENTF_KEYUP, 0
            keybd_event 17, 0, KEYEVENTF_KEYUP, 0
        End If
    Next
Next
End Sub

delanochen

或者尝试使用下面的代码也不行。

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
For i = 1 To ActivePresentation.Slides.Count
    ActivePresentation.Slides(i).Select
    For Each o In ActivePresentation.Slides(i).Shapes
        Debug.Print i, o.Type
        If o.Type = 19 Then
            o.Select
            sendkeys ("^[")   '模拟发送Ctrl+[ 减小对象的字体
           exit for
        End If
    Next
Next
End Sub