Memo/2004-06-27
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*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
終了行:
#contents
*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
ページ名:
![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
