PPTのVBA 全てのテキストボックスの行間を最小
- PPT2007で大量にあるテキストボックスの行間を一括で最小化したい。手作業では時間がかかり、VBAでの実現方法を探しているが見つからず困っている。
- PPT2007で使われている大量のテキストボックスの行間を一括で最小化したい。手作業では時間がかかるため、VBAでの自動化を試みたがうまく記録できず困っている。
- PPT2007で使用しているテキストボックスの行間を一括で最小化したい。手作業では時間がかかり、VBAでの実現方法を探しているが見つからず困っている。お詳しい方からのアドバイスを求めています。
- ベストアンサー
PPTのVBA 全てのテキストボックスの行間を最小
【PPTのVBA 全てのテキストボックスの行間を最小に】 今晩は、質問させていただきます。どうぞよろしくお願いいたします。 PPT2007でございます。 手元に大量にあるPPTファイル群のテキストボックスの行間が全て広いため、 全て一括で小さくしてしまいたい次第でございます。 もしこれを手作業でやりますと、テキストボックスをアクティブにする→右クリック →「段落」→「段落前」を0に。 となり時間がかかりますため、VBAでどうにかしたい次第でございます。 しかしネットで検索しても出てこず、 また上記操作を自動記録しようといたしましても記入されません。 (PPT2007には自動記録が無いため、excel、wordでトライいたしましたが、無理でございました。。。) 一個のテキストボックスの操作方法さえ分かれば後は、 For each スライド For each テキストボックス : : Next Next みたいな感じで出来ると思うのでございますが。。 もしお詳しい方がいらっしゃいましたら,お教えいただけないでしょうか。 どうぞよろしくお願いいたします。
- MKT_
- お礼率99% (329/330)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
MKT_さん こんにちは。 下記のコードでできると思います。 ※PPT2003での対応ですが… Sub 行間変更() Dim I As Long Dim J As Long For I = 1 To ActivePresentation.Slides.Count With ActivePresentation.Slides(I) For J = 1 To .Shapes.Count If .Shapes(J).HasTextFrame = msoTrue Then .Shapes(J).TextFrame.TextRange.ParagraphFormat.SpaceBefore = 0 End If Next J End With Next I End Sub
関連するQ&A
- Excelでのテキストボックスの行間調整
Excel2007において,テキストボックスの行間の微調整をしたいと思っています. 段落のプロパティから,間隔の行間を「固定値」として,18.2 ptなどと数値を入れます. しかし,18 ptと18.5 ptでは行間が変わりますが,18.2 ptなどは18 ptと丸められてしまって,小数点単位の行間の微調整ができません.何とかなりませんかね? そもそもの問題は,テキストボックス内の文字と背景セルの罫線の関係が,画面上と印刷時ではずれるという仕様(?)が問題なので,画面上と同じように印刷できるという解でもよいのですが... 困りますねぇ。
- ベストアンサー
- Excel(エクセル)
- ExcelデータをPPTの指定したテキストボックスに自動エクスポートも
ExcelデータをPPTの指定したテキストボックスに自動エクスポートもしくはインポートしたい 1列が1レコードになっているExcelデータを、 1レコード=1スライドで、 指定したセルデータをPPTの指定したテキストボックスに入れて Excelのレコード数だけスライドが自動でできるようにしたいのですが 何か方法はありますか。 VBAは初心者ですよろしくお願いします。 例 <Excel> A B C 1 田中 神奈川 A型 2 山田 東京 B型 ・ ・ ・ <PPT> スライド1 テキストボックス1 に「田中」と表示 テキストボックス2 に「神奈川」と表示 テキストボックス3 に「A型」と表示 スライド2 テキストボックス1 に「山田」と表示 テキストボックス2 に「東京」と表示 テキストボックス3 に「B型」と表示 ・ ・ ・
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA テキストボックスを見やすくしたい
いつもお世話になっております。 EXCEL VBA のユーザーフォーム上の テキストボックスについて教えて下さい。 大きめのテキストボックスを作り 改行を許可して、数十文字を表示させることができたのですが、行と行の間が詰まりすぎていて、見づらいのです。 行間を空ける方法を教えて下さい。
- ベストアンサー
- オフィス系ソフト
- VBAでテキストボックスに斜線を入れるには?
excelで、大きなオートシェイプのテキストボックスの中に、いくつかの小さな やはりオートシェイプのテキストボックスを貼り付けます。 通常は小さなテキストボックスに文字を入力して使うのですが、全ての小さな テキストボックスに何の文字も入力されていない場合は、大きなテキストボックスに 自動で斜線(シェイプの直線?)が入り、またどれか一つでも小さなテキストボックスに 文字が入力された場合は自動で斜線が消える様にしたいのです。 _____________ | ____ /| | |____| / | | ____ / | | |____| / | | / | | / ____ | | / |____| | | / | | / | |/ |  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ こんな感じなのですが、VBAで可能でしょうか? 以前もこんな感じの質問をしたばかりで恐縮ではありますが、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 【Excel2003】テキストBOXを認識しない
VBAを使用してテキストボックス内のフォントを統一するプログラムを書きました。 でも同じシート内でもテキストBOXと認識してフォントを変更してくれるときと、 テキストBOXと認識しなくてフォントを変更してくれないときがあります。 何故でしょうか?分かる方教えてください。 プログラムは以下のよう書きました。 --------------- Dim tbx As TextBox For Each tbx In ActiveSheet.TextBoxes tbx.Font.Name = "MS 明朝" Next ---------------
- ベストアンサー
- その他MS Office製品
- Excel VBAでpptのアクティブスライド
Excel VBAで、pptのスライドショー実行中のアクティブスライド番号を取得するコードを教えてください。 編集中のスライド番号を取得する方法は、検索して探し出したのですが、 スライドショー実行中での方法がわかりません。 Excelのセルにある値を、pptのテキストボックスに代入するプログラムを作成したいので、pptのVBAではなく、ExcelのVBAで実現させたいです。
- ベストアンサー
- Excel(エクセル)
- VBAでサイトのテキストボックスに入力
下記のサイトのテキストボックスにVBA操作でログインしたいです。 VBAによる表示まではできるのですが、入力とログインができません。 3つのテキストボックスの認識の仕方を教えて頂けると助かります。 https://www2.webpostman.ne.jp/wp/home
- 締切済み
- Visual Basic
- テキストボックスかコンボボックスを条件としたい
フォーム上のコントロールを取得する時に、 「テキストボックスかコンボボックスなら」としたいのですが、VBAコードがわかりません。 ************************************************************ Sub Sample() Dim myCtrl As Control Dim myForm As String myForm = "フォーム1" For Each myCtrl In Forms(myForm).Controls If myCtrlのタイプがテキストボックス Or コンボボックス Then Debug.Print myCtrl.Name End If Next End Sub ************************************************************ に修正していただけますか? ControlType プロパティを使うと思うのですが、使い方がわかりません。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAでExcel上のテキストボックス内容をすべて取得するにはどうすれ
VBAでExcel上のテキストボックス内容をすべて取得するにはどうすればいいでしょうか。 Object.textの場合200文字程度までしか取得できません。
- ベストアンサー
- オフィス系ソフト
- VBA あるフォームのあるテキストボックスへ飛びたい
教えてください エクセルのVBAで簡単な1問1答形式のプログラムを作っています フォームにある「次の問」を押したときに そのフォーム上に解答用のテキストボックスに 自動的に行く方法を教えてください 今は、「次の問」を押して マウスでそのテキストボックスをさらにクリックして 解答を入力するという状態です 上記の「マウスでテキストボックスをさらにクリックして」 という部分をなくしたいのです どうぞよろしくお願いします
- ベストアンサー
- オフィス系ソフト
お礼
jcctaira様 どうもありがとうございます!!m(_ _)m 2007でも問題なく動作いたしました^^動作も早く、あっという間でございます。 非常に助かりました。今日から作業がスイスイになります。 この度はご親切にどうもありがとうございました!!!