使用 VBA 的 PowerPoint 表中的随机数答案

【问题标题】：Random Numbers in PowerPoint Table using VBA使用 VBA 的 PowerPoint 表中的随机数
【发布时间】：2016-06-26 21:06:52
【问题描述】：

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

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

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

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

【问题讨论】：

标签： vba powerpoint powerpoint-2013

【解决方案1】：

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

【讨论】：