スライド 1 のすべての形状 ご覧のとおり、UP1 テキストボックス (「10」と表示されているもの) (プレゼンテーション中に編集できるように ActiveXControl) からの番号を S1 テキストボックス (「10」と表示) に追加したいです。これが私のコードです。 :
Slide1.Shapes("S1").TextFrame.TextRange = Slide1.Shapes("S1").TextFrame.TextRange + UP1
しかし、ここに私の結果があります： 実行後
