Memo/2004-06-27 のバックアップの現在との差分(No.1)

追加された行はこの色です。
削除された行はこの色です。

#contents
*Power Point 関連情報
**サンプルコード
***テキストボックスの情報を取得するサンプル
*Power Point 関連情報 [#ue248acd]
**サンプルコード [#kcaa2d50]
***テキストボックスの情報を取得するサンプル [#r53d4a84]
-テキストボックスの情報を取得するサンプル
 ' ＜使い方＞
 ' 1. Power Point の「Visual Basic Editor」を起動。
 ' 2. [挿入] - [標準モジュール] を選択。
 ' 3. 下記のコードを貼り付け。
 ' 4. [表示] - [イミディエイトウィンドウ] を選択。
 ' 5. [実行] - [Sub/ユーザー フォームの実行] を選択。
 '    これで、「イミディエイトウィンドウ（デバッグウィンドウ）」に
 '    テキストボックスの内容が表示されます。
 Sub TextBoxToDebugPrint()
     Dim slide
     For Each slide In ActiveWindow.Parent.Slides
         Dim shape
         For Each shape In slide.Shapes
             Debug.Print shape.TextFrame.TextRange.Text
         Next
     Next
 End Sub

-はてな
--http://www.hatena.ne.jp/1088310094

#comment