确定PPT表维度

Question

我正在使用VBA从Excel打开现有的PPT套牌。我正在编辑单元格内容，但我需要确定是否需要根据Excel内容添加行或列。如何确定现有PowerPoint表中宽和高的单元格数？

Answer 1

假设您对表格形状对象的引用为oShp，这将为您提供表格中的行数和列数：

Dim intTableRows As Integer, intTableCols As Integer
intTableRows = oShp.Table.Rows.Count
intTableCols = oShp.Table.Columns.Count

选择表格后，使用即时窗口尝试：

?ActiveWindow.Selection.ShapeRange(1).Table.Rows.Count