…x "処理終了、画像を確認してください" End Sub 解説位置: https://www.youtube.com/watch?v=RD5ovhJncsY&t=1464パワーポイント リンク切れグラフの値を取り出す PowerPoint マクロ VBA https://www.youtube.com/playlist?list=PL8vZhsyiiFhuAVnLl4S9tWujchW7rqOUm 再生リスト↑貼り付けたExcelグラフがリンク切れ 値を救いたい 吸い出したい

….comExcel VBA で PowerPointのタイトルテキストを取得したい Shapes から テキストを取り出す ken3memo.hatenablog.com だと、すべて、取得してしまうので、 現在処理中のスライドのみ、データを落とすように変更する。蛇足2.Excelでアクティブスライドのppオブジェクトに名前を付ける※名前の変更 蛇足2.パワポのアクティブスライドのシェイプ名.Nameに値をセットして変更する'起動済みのパワーポイント スライド .Shapes…

ken3memo.hatenablog.comhttps://youtu.be/jP0O2KlXeLE 目次 00:00 1.処理のタイミングをとりたい 00:32 1.2 標準モジュールにOnSlideShowPageChange 03:20 1.4 ん？一回目にコードが走らない？なんだこれ？ 05:55 2.事前準備で名前を付ける 08:12 3.1 1ページ目でランダムの数値をセットする 11:37 3.2 スライド2ページ目に移動したら、1ページ目の値をセットする 1…

…PowerPointVBA #マクロ記録 #Shapes #AddMediaObject #デバッグ .AddMediaObject は 2013で廃止され、 .AddMediaObject2 を使用する感じです。 Sub Macro4() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="G:\0-新規プロジェクト.…

…PowerPointVBA #マクロ記録 #PageSetup #デバッグ Sub Macro3() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' With ActivePresentation.PageSetup .SlideSize = ppSlideSizeOnScreen .FirstSlideNumber = 1 .SlideOrientation = msoOrientationVertical .NotesOrientation =…

…PowerPointVBA #マクロ記録 #Presentations #Add #デバッグ Sub Macro2() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' Presentations.Add WithWindow:=msoTrue ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideI…

…=653#ExcelVBA #PowerPointVBA #マクロ #自動転記 #デバッグExcelからパワポにデータをセットしてみました。 Excelのソース ※パワポを開いた状態でテストしてみてください Option Explicit Sub Excelから起動済みのパワポにデータセット20220425() '起動済みのパワポを捕まえる Dim ppApp As Object Set ppApp = Nothing On Error Resume Next 'エラーが発生…

…Sub ExcelのVBAで.Speakを使用すると、簡単に読み上げが可能です Application.Speech.Speak もあって、 セル読み上げだけじゃなく、好きな言葉を読み上げることができます。MsgBoxと組み合わせてみたけど、チョット、イマイチでした。 視聴者のみなさんで、面白い使い方があったら、 ぜひコメント欄で教えてください。 youtu.be https://youtu.be/c4mH9szOo2w#ExcelVBA #Speak #読み上げ #Spee…

ken3memo.hatenablog.com ↑で使用する、メニューの名前がわからないとき、、右クリック メニューへ マクロを追加したい時、 どのメニューか？調べる時に使ってみてください。現在の設定をExcelシートへ書き出してみました。 Sub CommandBarの内容をセルに書き出す() Dim n As Integer Dim y As Integer Dim x As Integer y = 2 For n = 1 To CommandBars.Count 'いつ…

…docs/word-vba-selecting-start-documents.html から引用 ActiveDocument.Bookmarks("\StartOfDoc").Select '文字列を探す、ターゲット位置決め Selection.Find.Execute FindText:="バグ内容", Forward:=True '見つけた↑下の行に移動 ↑でFindTextが見つからなかった時の処理が入ってないや n = Selection.Move(Unit:=w…

Excel VBA UsedRange で使用範囲を取得して Rows.Count で行数 最終行は Cells(objRANGE.Rows.Count, 1).Row なんて感じで遠回りで取得してみたDim objRANGE As Range Set objRANGE = ActiveSheet.UsedRange 'セルの使用範囲を取得VBA Excel 表 範囲 で検索すると 下記のわかりやすいページがヒットしますセル範囲の取得 セル範囲の取得 http://offic…

Excel VBA CurrentRegion で含まれている範囲が取得可能です ショートカットキー操作のShift+Ctrl+:(コロン)の範囲をVBAで取得できますDim objRANGE As Range '範囲を入れるRange型 Set objRANGE = ActiveCell.CurrentRegion 'アクティブセルを含む範囲を取得VBA Excel 表 範囲 で検索すると 下記のわかりやすいページがヒットしますセル範囲の取得 セル範囲の取得 http://…

https://www.youtube.com/watch?v=Irr_9wx6CAY 標準モジュールにDCountを利用したチェック関数を追加する Option Compare Database Option Explicit '0.商品コードを受け取り '1.マスターに、受け取ったコードがあるかチェック '2.明細、履歴にダブりがあるか、チェックする '商品コードを受け取りをチェック結果をエラーならTrueで返す関数 Public Function chk商品コード(st…

VBAのプロパティやメソッドを探る時、 マクロ記録を使う方法 そんなお話をダラダラ撮った動画 youtu.be https://youtu.be/dENBobeb5lY です。プログラム作成の参考となれば幸いです。はてなの質問 q.hatena.ne.jp の回答用に作成したコードと動画です。下記、動画で記録されたコードとテストで使ったコードです Sub Macro1() ' ' マクロ記録日: 2019/11/1 ユーザー名: Ken3 O ' ActiveWindow.S…

… そんなお話です。【VBA】配列の初期化で Array関数を使用 と Split関数で配列作成、UBoundで個数の判断【三流君】 - YouTube www.youtube.com配列の初期化を行いたかったので、Array関数 を使用してみました。外見の調整とArray関数を使用して配列作成 http://www.ken3.org/asp/backno/asp014.html で、 'Array関数を使用して、評価コメントを初期化 strBOX = Array("かなり不満…

前回のライブで、テンパって マクロ記録でプロパティを調べるといいですよ・・・ と 言って、セルを部分的に太字にする、 .FontStyle = "太字"を疑問に感じながら、 紹介したけど、 やはり .Bold=Trueで太字にできました。テスト動画: https://www.youtube.com/watch?v=_SP__GgVwiY www.youtube.comいつものことながら、前置きが長い。1.まずは単純にセルに対して.Font.Bold = True Range(…

…ので、 ExcelのVBA イミディエイトやネットでxlDownの値を調べて書く? xlDown 4121 Option Explicit Dim ex, bk, sh, i Set ex = GetObject(,"Excel.Application") '開いているExcel Set bk = ex.Workbooks(1) 'ブック Set sh = bk.Worksheets(1) 'シートを指定 For i = 2 To sh.Range("A1").End(-41…

…ダグタな解説動画 【VBA IE操作】指定したYouTube動画から はてなブログ の本文を作成する そんな転記プログラム【三流君】 - YouTube www.youtube.com下記、作成したソースコードです。 Option Explicit '標準モジュールにAPI宣言を書く Declare Sub SetForegroundWindow Lib "user32" (ByVal hwnd As Long) ' https://www.moug.net/tech/acv…

単体で動作確認ができたので、 結合処理を行ってみます下記、いつもの酔っ払い解説動画です。 https://youtu.be/Ymk_TSO7dQk youtu.be結合処理中のエラー、不具合 を 面白おかしく説明しようと がんばってみましたが、 うまく料理できませんでした。失敗やエラーのシナリオなど、うまく考えないとなぁ。ただ単体のコードをつなげただけの意味ない動画ですが、 よろしくお願いします。テスト作成したコード Option Explicit Declare Sub S…

…こと手作業で説明2.VBAで作成してみるまず、セットしたい項目をあらいだす。 記事画面のページでhtmlソースを表示して 検索の周りを探して、Formを見つけます。 <form class="entry-search-form js-entry-search-form" role="search" action="/search" method="get"> <select name="category" class="js-categories-selector"> <op…

IEで表示されている編集画面の中から、 本文 テキストエリア を探して、内容を置き換える。そんな処理を探ってみたいと思います。デバッグ風景の動画 https://www.youtube.com/watch?v=qdSxWCeNa2w www.youtube.com1.表示されているIEを捕まえる URLに /edit が入っているかを条件にIEを探す2.ソースの中から、本文・テキストエリアを探る <textarea id="body" class="editor-body-t…

…owerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube www.youtube.com場所と名前は、 ? Application.Presentations(1).Name プレゼンテーション1.pptm ? Application.Presentations(1).Path D:\VBA\20180222 かなぁ。スライド起動中の判断で ? application.SlideShowWindows(1).P…

…owerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube www.youtube.comマクロのボタンを押すと、 立ち上がっている二つのスライド を 単純に次のページにするなら 18:32 のような処理でいいなら Sub next2() Application.SlideShowWindows(1).View.Next 'スライド1番目を次ページ Application.SlideShowWindows(2).…

…OX" NAME="VBA">VBA<br> <INPUT TYPE="CHECKBOX" NAME="24H">コンビニ系<br> <INPUT TYPE="CHECKBOX" NAME="GUCHI">愚痴系<br> <INPUT TYPE="submit" VALUE="検索する"> </FORM> <% 'ADO DB Connection オブジェクトを作成する、英文そのままじゃん Set db=Server.CreateObject("ADODB.Connecti…

…on value="VBA">VBAのコメント</option> <option value="GUCHI">愚痴系</option> <option value="24H">24Hコンビニ</option> </SELECT> <INPUT TYPE="submit" VALUE="検索する"> </FORM> <% 'ADO DB Connection オブジェクトを作成する、英文そのままじゃん Set db=Server.CreateObject("ADODB.Conn…

…T_X + objCELL.colSpan 'カラム分 横に移動 Next SET_Y = SET_Y + 1 Next 小細工の解説は、動画を見てください ぉぃぉぃ・・・ 単勝表の取り込み バグ修正 VBA IE操作 JRA Ken3 ライブ プログラミング テスト中 です・・・ - YouTube www.youtube.com 積み残し 問題点 この処置だと、まだまだで ８枠18番みたいに、ひと枠に３頭 馬が入るとまだまだエラーになるかなまだまだ、先が長いですね。。。。

…OX" NAME="VBA">VBA系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="GUCHI">愚痴系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="24H">コンビニ系へのご意見を表示<BR> <INPUT TYPE="submit" VALUE="送信">←チェック後送信ボタンを押してください </FORM> <hr> <% '頭で、入力パラメーターの文字数をチェックする strWHERE = "…

…asp?KUBUN=VBA&NO=1&A=3">test044-2.asp?KUBUN=VBA&NO=1&A=3</A><br> <A HREF="test044-2.asp?KUBUN=VBA&NO=2&A=2">test044-2.asp?KUBUN=VBA&NO=2&A=2</A><br> <A HREF="test044-2.asp?KUBUN=24H&NO=44&A=1">test044-2.asp?KUBUN=24H&NO=44&A=1</A><br> <br> …

…http://ie.vba-ken3.jp/test/20161101j1j2.html" '表示終了まで待つ .Busy(忙しい)間 と.ReadyState(ステータス)が４以外の時 ループ Do While objIE.Busy = True DoEvents '特に何もしないで.Busyの状態が変わるまで待つ Loop Do While objIE.ReadyState <> 4 DoEvents '特に何もしないで.ReadyStateの状態が４に変わるまで待つ L…

….ken3.org/vba/bbs-vba.html )<br> サンプルファイルは、<br> http://www.ken3.org/vba/lzh/vba042.lzh <br> にtest042-book.xlsが保存されています<br> これを変換してみる。<br> 結果は、<br> <% '処理を作成する 'テストのデータを作成する moji = "掲示板に書いてくれると、うれしいです。" & vbCrLf moji = moji & "(掲示板 http://ww…