…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents Dim y As Long '行カウンタ y = 1 'A1から始めたいので Dim strPDFFileName As String 'PDFのファイル名 'A列のファイル名が存在する間ループする While Len(Trim(Cells(y, "A"))) > 0 '開く、コピー元を変数に入れる Dim…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする 'いつもActivePresentationでやってるけど、たまには変数を使用 Dim strひな型FILE As String strひな型FILE = ThisWorkbook.Path & "\" & Range("B2") 'フルパス作成 Dim ppプレゼン As Object 'PowerPoint.Presen…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'ひな型 テンプレ ファイルを開く Dim strPPFName As String strPPFName = ActiveWorkbook.Path & "\ひな型231212左右.pptx" '※Excelと同じ場所を開く '↑上のテンプレ内のセット名をここで代入する Const str左セット名 = …

…画のリスト: 1. CreateObject("htmlfile")でDocumentを作りweb上のhtmlデータを抜き出す 例としてJRAのHPからオッズを取得してみた https://www.youtube.com/watch?v=RjZZUq40gxY2. JRAホームページ「onClick=doAction が なんでPOSTだとわかったんですか？」と質問されたので https://www.youtube.com/watch?v=NPnKju8rkVw3. VBSc…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'B2ファイルを開く Dim strPPFName As String strPPFName = Range("B2") 'B2に記載されたファイルを開きたい '開く、変数に入れる Dim ppセット先 As Object 'PowerPoint.Presentation 'pp:プレゼンテーション Set…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'ひな型ファイルを開く Dim strPPFName As String strPPFName = ActiveWorkbook.Path & "\ひな型0823.pptx" '※Excelと同じ場所を開く '開く、コピー元を変数に入れる Dim ppひな型 As Object 'PowerPoint.Pr…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'ひな型ファイルを開く Dim strPPFName As String strPPFName = ActiveWorkbook.Path & "\ひな型0717.pptx" '※Excelと同じ場所を開く '開く、コピー元を変数に入れる Dim ppひな型 As Object 'PowerPoint.Pr…

…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする '新規プレゼンのファイル作成 新規の空ファイル作成 oApp.Presentations.Add WithWindow:=msoTrue 'ここからスライドをA列のデータがなくなるまで、追加する Dim n As Integer Dim strTITLE As String 'A列のデータをタイトルにする For n = 1 …

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'ひな型ファイルを開く Dim strPPFName As String strPPFName = "D:\テンプレート\テンプレ0625縦.pptx" '※固定でフルパス 'strPPFName = "D:\テンプレート\テンプレ0620.pptx" '※固定でフルパス '↑デバッグで用意した縦スライドを…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'ひな型ファイルを開く Dim strPPFName As String strPPFName = "D:\テンプレート\テンプレ0625縦.pptx" '※固定でフルパス 'strPPFName = "D:\テンプレート\テンプレ0620.pptx" '※固定でフルパス '↑デバッグで用意した縦スライドを…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'ひな型ファイルを開く Dim strPPFName As String strPPFName = "D:\テンプレート\テンプレ0625縦.pptx" '※固定でフルパス '↑デバッグで用意した縦スライドをテンプレ元にする '開く、コピー元を変数に入れる Dim ppひな型 As Object 'Powe…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする DoEvents 'ひな型ファイルを開く Dim strPPFName As String strPPFName = "D:\テンプレート\テンプレ0620.pptx" '※固定でフルパス '開く、コピー元を変数に入れる Dim ppひな型 As Object 'PowerPoint.Presentation 'pp:プレゼ…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする 'いつもActivePresentationでやってるけど、たまには変数を使用 Dim ppプレゼン As PowerPoint.Presentation 'pp:プレゼンテーション Set ppプレゼン = Nothing '初期化、エラーチェックもかねて On Error Resume Next '↓でSet 取得エラー…

…けを実験したです。 CreateObject("Publisher.Application") が使えたことにビックリしただけで、 動画作成中にVBAで作らなくて良いことに気が付き・・・ また、動画録画用のPCと作成用のPCが違ったため、 マクロのセキュリティ警告が出て、動画作成を失敗したり・・一行で書くと、 実験を失敗した動画です。 失敗動画が１つでも、少しでも解決のヒントとなれば幸いです。 youtu.be https://youtu.be/CyBPqVaktGQ 目次 …

…objSAPI = CreateObject("SAPI.SpVoice") Dim objVoice As Object For Each objVoice In objSAPI.GetVoices Debug.Print "Name=", objVoice.GetDescription Next Debug.Print "Language=409を指定" For Each objVoice In objSAPI.GetVoices("Language=409") Debu…

…は、現状を確認する CreateObject("SAPI.SpVoice") に何も指定しないで、 デフォルト状態で ノートを読ませ、現状を確認する。2.機械音声の言語を英語USにしてみた 01:10 なので、 次に演者じゃなかった 読み込ませる人の設定・言語を英語に指定して、 本場っぽく読ませてみた。ぉぃぉぃ指定は簡単で、 google:VBA SAPI.spVoice 言語指定 で検索すると、 Language=409の指定で英語みたいです。 ※VBAのサンプルコードが見…

…t objIE = CreateObject("InternetExplorer.a… 02/27 06:00に更新 XXXXXさんへ VBA IE操作 リモート サーバーがないか、使用できる状態ではありません について https://ken3memo.hatenablog.com/entry/2019/02/28/060000 >実行時エラー '462': >リモート サーバーがないか、使用できる状態ではありません。 > とでます。 >デバッグでは、 > objIE.Na…

… に (↑音読処理 CreateObject("SAPI.SpVoice")で処理した 元になった上記動画もヨロシク)ノートを行単位 改行コード vbCR で区切って、 SAPI.SpVoiceで読み上げと用意したテキストボックスに代入しただけです。動画で設置方法や仕組みを解説しました。コードと合わせてみてください。 youtu.be https://youtu.be/uXi1QJyPbTU 目次 00:00 作成結果を先に見せる 00:41 1.表示場所 テキスト字幕エリア…

…et MyXl = CreateObject("Excel.Application") With MyXl 'コピー元 Book Open .Workbooks.Open (myXLName1) 'コピー先 Book Open .Workbooks.Open (myXLName2) .Workbooks(2).Sheets(myXLShName2).Range(.Cells(1, 1), .Cells(8, 10)).ClearContents 'Sheet Copy .Wo…

…et oApp = CreateObject("Outlook.Application") 'outlook起動をCreateObjectで 'NameSpace 複数アカウント設定時、分類がどうなのか？気になるけど後日の課題かな・・ Dim objNameSpace As Outlook.Namespace Set objNameSpace = oApp.GetNamespace("MAPI") '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする 'いつもActivePresentationでやってるけど、たまには変数を使用 Dim ppプレゼン As PowerPoint.Presentation 'pp:プレゼンテーション Set ppプレゼン = Nothing '初期化、エラーチェックもかねて On Error Resume Next '↓でSet 取得エラー…

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする 'いつもActivePresentationでやってるけど変数を使用 Dim ppプレゼン As PowerPoint.Presentation 'pp:プレゼンテーション Set ppプレゼン = Nothing '初期化、エラーチェックもかねて On Error Resume Next '↓でSet 取得エラー時に次へ …

…t ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする 'いつもActivePresentationでやってるけど変数を使用 Dim ppプレゼン As PowerPoint.Presentation 'pp:プレゼンテーション Set ppプレゼン = Nothing '初期化、エラーチェックもかねて On Error Resume Next '↓でSet 取得エラー時に次へ …

…et oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする '2.ExcelからPowerPointへデータを流し込む '2.1 Excelからテンプレ.pptxを開く Const strOpenFileName = "D:\2022\テンプレ002.pptx" '元のテンプレートファイル名 '元ファイルを開く テンプレートファイルを開く Dim oPPひな型 As Object Se…

…et oApp = CreateObject("Outlook.Application") '新規にアプリの枠作成 '.GetNamespace("MAPI") Set myNameSpace = oApp.GetNameSpace("MAPI") '最近はセッションの方を良く見るけど '作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display) Set myFolder = myNameSpace.GetDefaultFolder(10) '連…

…ocument = CreateObject("htmlfile") 'Set oDocument = New HTMLDocument '参照設定したとき 'oDocument.write "<html><body>test</body></html>" 'HTMLをセット 'Stop strHTML = Replace(strHTML, "script", "") 'scriptを止めるTEST oDocument.write strHTML '取得したHTMLをセット …

…XMLHTTP と CreateObject("htmlfile")を使用して JRAオッズ取得 ワイドのオッズ取得に挑戦してみました。#JRA #競馬 #オッズ取得 #ワイドオッズ #IEサポート終了 #MSXML2.XMLHTTP #htmlfile #デバッグ #ExcelVBA #MSExcel下記、いつもの解説動画です。 とても※長いので休憩を取りながら、ソースコードと一緒にみてください。 途中コーヒー休憩、ブレイクタイム必要です。ぉぃぉぃ。 www.youtube…

… Set ol = CreateObject("Outlook.Application") Set mail = ol.CreateItem(0) mail.Display 'ol.ActiveInspector.WindowState = 1 mail.Subject = "【ご連絡】社内承認状況について" mail.BodyFormat = 2 Set sel = ol.ActiveInspector.WordEditor.Windows(1).Selection sel…

…utlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") Dim aITEM 'As Outlook.AppointmentItem '予定、アポ 'CreateItemで予定の作成 Set aITEM = oApp.CreateItem(1) 'olAppointmentItem=1 1予定・アポを指定 aITEM.Display '編集画面表示 いら…

…objSAPI = CreateObject("SAPI.SpVoice") objSAPI.Speak strNOTE '.Speakに文字列を渡す Set objSAPI = Nothing End Sub 2.追加したマクロを実行する図形やアイコンを追加して 挿入・動作でマクロ実行3.あとは、確認した図形やアイコンを必要個所にコピーする4.気になった点 ノート読み上げマクロにして受講生に配布だと、 4.1 最近、マクロのセキュリティの問題など、別なことに注意が必要かなぁ…