使用VBA的PowerPoint表中的随机数

Question

我想使用PowerPoint VBA使用随机生成的数字填充PowerPoint表格中的所有选定单元格。

我可以使用这个子程序在当前光标位置插入一个随机生成的数字：

Sub RandomNumberGenerator()
    Dim oRange As TextRange
    Set oRange = ActiveWindow.Section.TextRange.Characters
    oRange.Text = Int(Rnd()*10000)
End Sub 

如何扩展它以填充Table的所有选定单元格中的随机数？

Answer 1

您需要首先确定选择形状范围包括一个表，然后遍历行和列，检查每个单元格是否被选中，如果是，请将随机数文本插入单元格的相应形状对象中。