我使用Excel VBA将表格从工作簿复制到Powerpoint,我正在使用:
Shape.Table.Rows.Cell.Shape.TextFrame.TextRange.Font.Size = 20
格式化单元格的字体大小。但是,在一台计算机上,此功能突出显示单元格的内容以更改字体大小(类似于突出显示文本以手动更改字体大小的方式),并且在另一台计算机上,此行代码更改字体大小而不使用需要突出显示实际文本。有谁知道为什么这种方式不同(可能是基本的设置差异)?
我不希望代码突出显示文本,因为当文本突出显示并且宏尝试在幻灯片上粘贴另一个表时,它会将表粘贴到突出显示的单元格中,而不是作为新的单独表格。
答案 0 :(得分:0)
假设形状实际上包含一个表,尝试使用Table对象的Cell方法循环遍历表中的每个单元格...
Dim lRow As Long
Dim lCol As Long
With oShape.Table
For lRow = 1 To .Rows.Count
For lCol = 1 To .Columns.Count
.Cell(lRow, lCol).Shape.TextFrame.TextRange.Font.Size = 20
Next lCol
Next lRow
End With