ベストアンサー スライドのスライド番号を取得したいのですがVBAで 2012/07/11 19:07 パワポのVBAについて教えてください。 1あああ 2いいい 3ううう のようにした時に、 「ううう」のスライドのスライド番号を取得したいのですがVBAで可能でしょうか? そもそも 全てのスライドをFor Eachでループさせて ブレースホルダに「ううう」が入力されてるかどうかを検索する方法がわかりません。 ご回答よろしくお願いします。 画像を拡大する みんなの回答 (1) 専門家の回答 質問者が選んだベストアンサー ベストアンサー DreamyCat ベストアンサー率56% (295/524) 2012/07/12 07:02 回答No.1 VBAヘルプでshape.typeを検索してください。 コード例がのっています。 質問者 お礼 2012/07/12 19:33 shape.typeについて調べてみます。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアオフィス系ソフト 関連するQ&A パワポ vba 全てのスライドをループする エクセルなら 全てのシートをループして作業する場合は For Each s In Worksheets Next でできますが、 パワポで全てのスライドをループして 各スライドで作業したい場合は、 どのようなコードになるのでしょうか? Excel VBAでpptのアクティブスライド Excel VBAで、pptのスライドショー実行中のアクティブスライド番号を取得するコードを教えてください。 編集中のスライド番号を取得する方法は、検索して探し出したのですが、 スライドショー実行中での方法がわかりません。 Excelのセルにある値を、pptのテキストボックスに代入するプログラムを作成したいので、pptのVBAではなく、ExcelのVBAで実現させたいです。 スライド番号 左右に数字を振りたい VBAでもなんでもいいのですが、 パワポのスライド番号を、右下・左下・右下・・・・のように交互に表示させる事は可能でしょうか? 添付した画像は、無理矢理ペイントで番号をつけました 汗 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? OKWAVE コラム 【VBA】for each文でListbox値取得 VBA7.1でfor each文を使い、Listbox(Lst1)の全ての値を 取得したいと思っています。 For Each 変数 In コレクションや配列 のコレクションや配列には何を指定したらよいでしょうか。 よろしくお願いいたします VBA エレメント番号の取得 こんにちは、 Excel VBA を勉強中の物です。 InterNet を制御するプログラミングで 初歩的な、 ID の入力 PW の入力 ログイン としたいのですが。 ID,PWのエレメント番号の取得はできましたが ログインのエレメント番号、名前を取得できない場合どうしたらよいのでしょうか? 参考:http://fc2.com/login.php VBAについて すいません、VBA初心者です。 以下の事をやる時にはどうしたらいいか教えて頂きたく思っています。 現在、社内でカードリーダーを使った荷物の受け取り管理を行えるVBAを構築しようと奮闘しています。 仕組みは簡単で、受け取り番号を指定入力して、受取人が自分のIDをカードリーダーにかざし、受取人情報取得し、確定ボタンを押すと授受リストへコピペされるというものです。 現在、VBAで入力フォームを作成しており、受け取り番号入力欄を3つあり、デフォルト値(1233-00)が設定されています。 1) 1233-00 (Text Box1) 2) 1233-00 (Text Box2) 3) 1233-00 (Text Box3) ここで 1〜3の入力された受け取り番号が授受リストに存在しているかどうかの検索をかけて検証しながら作業完了させたいのですが、、、 1にしか受け取り番号が入力されていない場合(他はデフォルト値のままを意味)は1の数字のみを授受リストに検索をかけてコピペ。 1と2のみにしか受け取り番号が入力されていない場合は1と2の数字のみを授受リストに検索をかけてコピペ。 1〜3すべてに受け取り番号が入力されている場合はすべてを授受リストに検索をかけてコピペ。 これを実現するにはどのようなコードを組んだらいいのでしょうか? 教えて下さい 選択行番号を取得して別シート貼り付ける方法 VBAを使いsheet1の選択した行番号をsheet2のA1列に全て貼り付ける方法が分からなくて困っています。 ちなみに下記のVBAはsheet1上で実行するとメッセージボックスに選択行の数値が順番に表示されます。この選択行番号情報を全てsheet2のA1列に貼り付けたいのですが、どうすれば良いでしょうか? 選択行は最大400位になります。特にメッセージボックスに表示する必要はありませんので、メッセージボックス表示は不要です。 Sub 行番号取得() Dim r As Range For Each r In Selection.Rows MsgBox r.Row Next End Sub EXCEL-VBAでワークシートのデータがはいっている最終の行番号の取得 ExcelVBAは不得意のものです。 ワークシートのA列にデータが入っているのですが、10行目までの時もあれば20行目までデータが入っている場合もあります。データが入っている最終行の行番号を取得したいのですがどうしたら良いのでしょう。 何をするかというと、その番号を取得してループ処理をしたいのです。For i=1 To 最終行の行番号みたいに 多分EOFなんて指定じゃないですよね 「DO LOOP」についての質問です。VBA初心者です。 「DO LOOP」についての質問です。VBA初心者です。 『入力画面』というシートに日付を入力してマクロ実行すると 『入力画面』の右隣りにその日付名のシートが新しく作られるように設定しています。 入力する日は不定期で連続した日付ではありません。 それでお聞きしたいのは、新しく作成するシートから右隣に一つずつ検索していって、 一致するものがあればデータ取得でループ終了。 もしくは全てのシートを検索しても一致するものがなければゼロ表示でループ終了。 という作業をしたいんですが、構文がどのように作ればいいのかがわかりません。 自分でやってみたいのですが、締め切りも近いのでどなたか教えてください。 VBA作業の効率化 お世話になります。 さて、少し取り留めのない質問なのですが よろしくお願いします。 お陰様ある程度VBAの作業に慣れてきた感じがしています。 それで作業量が多くなってくると 同じような構文などを入力したりコピーしたりすることに疑問を持ち始めました。 例えば、作業の内容で、 for~のループの構文を書くことが多いです。 ワークブックを取得するループ シートを取得するループ セルの値を取得するループ HTMLのタグを探すループ ...etc などその都度構文を入力していますが、 もっと効率的にできないものかと思っています。 他のサイトの引用ですが 感じていることはこのようなことです。 ・時間がかかる ・大量の「コピー&貼り付け」は人間なのでミスが発生する可能性がある。 ・この仕様が変更になった場合、修正個所が多すぎる。 http://homepage1.nifty.com/rucio/main/shokyu/jugyou30.htm 定番のモジュールをエクスポートしておいて 新しく作る時にインストールするとかもあるのでしょうけど あまり効率的でないなぁと感じています。 そもそもコピペなども 大量になってくるとコピペ元を探すのも大変になってきます。 今後、どのようなことに心がければ、 作業を効率化していけるか? 入力する量を減らしていけるか? が、さっぱり想像がつかないので質問させていただきました。 なにかヒントでももらえれば幸いです。 よろしくお願いします。 アウトラインに表示されている文字 取得したいのです アウトラインに表示されている文字(タイトル?)のみ取得したいのですが、 Dim sld As Slide Dim shp As Shape Sub test() For Each sld In ActivePresentation.Slides sld.Select For Each shp In ActiveWindow.Selection.SlideRange.Shapes Debug.Print shp.TextEffect.Text Next shp Next sld End Sub を実行すると、アウトラインだけではなく、 テキストボックスにあるすべての値まで取得してしまいます。 アウトラインのタイトル部分のみ表示される文字を取得するコードはありますか? 「クリックしてタイトルを入力」 「・クリックしてテキストを入力」 とスライドにデフォルトで表示されますが、 「クリックしてタイトルを入力」のみの値を取得したいです。 PPTのVBA 全てのテキストボックスの行間を最小 【PPTのVBA 全てのテキストボックスの行間を最小に】 今晩は、質問させていただきます。どうぞよろしくお願いいたします。 PPT2007でございます。 手元に大量にあるPPTファイル群のテキストボックスの行間が全て広いため、 全て一括で小さくしてしまいたい次第でございます。 もしこれを手作業でやりますと、テキストボックスをアクティブにする→右クリック →「段落」→「段落前」を0に。 となり時間がかかりますため、VBAでどうにかしたい次第でございます。 しかしネットで検索しても出てこず、 また上記操作を自動記録しようといたしましても記入されません。 (PPT2007には自動記録が無いため、excel、wordでトライいたしましたが、無理でございました。。。) 一個のテキストボックスの操作方法さえ分かれば後は、 For each スライド For each テキストボックス : : Next Next みたいな感じで出来ると思うのでございますが。。 もしお詳しい方がいらっしゃいましたら,お教えいただけないでしょうか。 どうぞよろしくお願いいたします。 ヤバいパソコンが壊れたかも!?事前に知っておきたい3つの兆候と対策 OKWAVE コラム PowerPointスライドショーをVBAで操作? PowerPointで教育プログラムが出来ないか考えています。 スライドショーの途中でマウスまたはキー操作により表示を変える方法があれば、アニメーションを使ってExcelより楽しいソフトが出来るのではないかと思います。 例えば、回答をキー入力すると”〇”、”×”の表示を切り替えたり、別のストーリーに分岐したり。 ネットで調べても、スライドショーをコントロールするVBAが見つかりません。可否についてご存知の方ご教示お願いいたします。 結合させた状態で、vbaで列番号を取得する方法 A1とA2を結合させた状態で、vbaで列番号を取得する方法はありますか? この状態で Sub Sample() Dim 列 As Long 列 = Rows(1).Find(What:="検索文字", LookAt:=xlWhole).Column End Sub をすると、エラーになります。 結合を解除すれば、1が返ります。 結合させた状態でなおかつ列番号を取得する方法をご教授下さい。 PowerPointのVBA PowerPointのVBA PowerPointのファイルが、300ページを超えそうな状況で、 簡単に目次を作りたいです。 具体的には、各ページのタイトルを取得したいです。 300ページを超えそうなので、各ページからコピペをするのが大変で困っています。。。 Excelで簡単なVBAを組んだことあるのですが、 page番号.タイトルobject.titleName みたいなのを、ループで回して取れないでしょうか? VBAで日付取得 お世話になっております。 このたびVBAを使用してWBSを作成しようと考えております。 そこで、以下のような日付取得のロジックを考えました。 ・A1セルからA100セルまで一行ずつ下へforでまわす ・日付はYYYYとMMとDDに分割したい --------------------------------------- For I = 0 To 99 セルに入力された値 = Range("A1").Offset(I).Value MsgBox セルに入力された値 '(1)2009/11/16とでます。 年だけ = Year(セルに入力された値) MsgBox 年だけ '(2)1905/03/13とでます。 NEXT ・ ・ -------------------------------------- (2)は(1)の値を変えてみても1905/03/13とでます.. (2)はなぜ2009を拾ってくれないのでしょうか。。。 ご教授ください。 宜しくお願いいたします。 スライドショー imagesディレクトリにGIFとJPGという拡張子のちがう画像が混在して います。ファイル名は連番です。 これらの画像をスライドショーで表示するとき、ファイルを読みに行 ったときに、自動的に判別して表示させるにはどうしたらよいでしょ うか。番号で切り分けずに、 for(var i=0;i<30;i++) というループで実現したいです。 よろしくお願いします。 vbaを使ってEXCEL内の情報を取得について EXCELにはいっているある情報をVBAを使って検索してそれに当たる一列のデーターを取得したいです。ひとつにあたるデータは複数であって循環を使って、それにあたるすべてを取得したいです。イメージとしては 生年月日|お名前|履歴 1900/1/1 | YAMADA | RIREKI1 1901/1/1 | TOKYO | RIREKI2 ファームには生年月日を入れて【1900/1/1】検索コマンドを押すと 1900/1/1 | YAMADA | RIREKI1 一列がすべて出るようにしたいです。 同じ生年月日の人がいればそれで複数データとして出したいです。 よろしくお願いします。 ワード内のテキストボックス文字カウント(VBA) エクセルVBAしか扱ったことがないのですが、 ワード文書のテキストボックス(複数)内の文字数の総合計をMsgBox出力させようと思ったのですが、勝手が違って困っています。甘く見た私がバカでした。 しかもVBA自体結構忘れてしまっています。 以前こちらでパワポについてご親切な回答を頂いたので、再びご好意にまた甘えられたらと思うのですが、助けていただけますでしょうか。 ActiveDocument.Shapes("Text Box 2").Select Text Box の番号を 定義して、for nextで処理するのかなと思うのですが、とりあえず、ここまでの努力をしたということでお許し下さい。 (vba)フォルダの中の全てのファイル名を取得したい エクセル2003を使用しています。 「C:\Documents」にはいっている全てのファイル名をDebug.Printで取得したいのですが For Each...Next ステートメントとDirと "*.*"を使うのはなんとなくわかるのですが どうすればいいのかがさっぱりわかりません。 ご教授いただけないでしょうか? よろしくお願いします。 注目のQ&A 「You」や「I」が入った曲といえば? Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市(長野県)在住でスキーやスノボをする方の用具 カテゴリ パソコン・スマートフォン ソフトウェア Excel(エクセル)Word(ワード)PowerPoint(パワーポイント)Access(アクセス)その他MS Office製品オフィス系ソフトPhotoshop(フォトショップ)Illustrator(イラストレーター)その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル?プリンター・メール・LINE編 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? 友達って必要?友情って何だろう 大震災時の現実とは?私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ!負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる! OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
shape.typeについて調べてみます。