vba - 使用 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 

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

Answer 1

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