0

PowerPoint VBA を使用して、ランダムに生成された数字を PowerPoint テーブルで選択したすべてのセルに入力したいと考えています。

このサブルーチンを使用して、現在のカーソル位置にランダムに生成された数値を挿入できます。

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

の選択されたすべてのセルに乱数を入力するように拡張するにはどうすればよいTableですか?

4

1 に答える 1

0

まず、選択図形の範囲にテーブルが含まれていることを確認してから、行と列をループ処理して、各セルが選択されているかどうかを確認し、選択されている場合は、セルの対応する図形オブジェクトに乱数テキストを挿入する必要があります。

于 2016-03-11T16:53:49.070 に答える