VBA
下記の質問をいただきました 質問:ブック間コピーを行いたい 突然で申し訳ございませんが、ブック間コピーを行いたいのですが、上手くいきません。 お力添えください。よろしくお願い致します。 もしできたら、コピー元を最終行最終列を選択できるとうれしい…
パワポのアニメ設定を追加するには、 Dim objTimeLine As PowerPoint.TimeLine 'タイムラインって日本語だと？何だろう？ Set objTimeLine = objSLD.TimeLine 'スライドの下にタイムラインがあります '↑このタイムラインにアニメ効果を追加していくイメージ…
マクロ・VBAでリンク情報 Shape.LinkFormat.SourceFullName を現在位置に更新する パワポのExcelリンクを現在の場所に自動更新したい ペアで同じ位置にコピペしたのにリンク先がコピー前の位置なので自動変更したい リンク貼り付けされたパスマクロ パワポの…
detail.chiebukuro.yahoo.co.jp ＞メールを色分けして分類するために、既存の色分類項目ではなく、 ＞新規作成で名前と色を設定したいと考えています。 ＞おそらく、Categories.Addメソッドを使用するとは思うのですが苦戦しております。 ＞ ＞Categories オ…
accApp.UserControl = True を入れてテストしてみました。 ※よし実験終了、QAサイトの回答に得意気に書こうとしたら、 質問が解決済みになっていたのは内緒です。youtu.be https://youtu.be/qyL7ozYEds0 目次 00:00 やりたいこと 00:30 1.不具合の再現 01:28…
図1:CCにグループ化した宛先をセットメールの宛先にグループ化された宛先を使用したかったので、 Dim oRecipient As Recipient Set oRecipient = objMAIL.Recipients.Add("宛先のグループ名") を使用したデバッグ・テストです。後半の自分語りで恥をかく・・…
図:メールの分類メールの分類は、 .Categories = "分類の文字列" に文字列で設定すると可能 分類項目 赤 など、セットすると可能みたいです。#OutlookVBA #アウトルック #デバッグ #マクロ #MailItem #Categories #ShowCategoriesDialogいつもの動画解説とソ…
Excelのシートイベントで 行や列 の 全体選択後に 右クリックやダブルクリックされた時は Target.Countで件数もみたほうがいいのかなぁ・・・ 6行目を選択後に右クリックでTarget.AddressとTarget.Countイベント処理で ByVal Target As Range で対象がわかる…
B2のパワポファイル、フルパスを開き、B3で指定したスライドページの B4名前のテキストボックスにB10列～データセット後、A10列の名前で上書き保存する 図1.シートイメージまぁ、↑シートイメージを見た方が早いですね。テスト動画 youtu.be https://youtu.be…
Word表を操作するマクロでRows.Addで行挿入後、 案1 Row.Cells(1) で 1列目だけ使用する 案2 固定のCell(2,1)にセット をテストしてみました。#MSWord #マクロ #WordVBA #デバッグキッカケは知恵袋の質問 detail.chiebukuro.yahoo.co.jp をデバッグしてみま…
知恵袋の質問 detail.chiebukuro.yahoo.co.jp ＞ワード文書内に①①②③③・・・がある場合に、 ＞これらを①②③④⑤・・・というふうに重複したものを順番に置き換える ＞マクロを考えております。 ＞(①②③・・・は行頭にあるとは限らないので、ワード本来の機能(段落…
Wordのマクロ記録で検索条件と色変更を作り実行するが、反応しないそんな質問があったので、 おじさんが手作業で Find.Execute を足してデバッグしてみたら・・・ そんなお話です・・・って、どんな話だよ・・・ #WordVBA #マクロ記録 #デバッグ #Selection …
0.やりたいこと Excelシート+セル範囲のテキストデータ を パワポのPage指定した表TABLEへ転記する。 ※データを流し込む、差し込む、イメージですyoutu.be https://youtu.be/x68nZfCgFGc 目次 00:00 0.やりたいこと 00:58 1.シートのセル範囲をパワポの指定P…
0.やりたいこと パワーポイントの指定した表(TABLE) を エクセルの指定したシート・位置に書き出したいExcelのマクロを使用してパワポの表を取り込む そんな処理にチャレンジしてみます。youtu.be https://youtu.be/wjxG6L4il3w 目次 00:00 0.やりたいこと 0…
PowerPointの表をVBAから操作するコードを探ってみます ActivePresentation.Slides(2).Shapes("表 2").Table.Cell(3,2).Shape.TextFrame.TextRange.Text = "文字列" の一行紹介の動画でOKなのに無駄に長く、 型宣言して型にハメながら ステップ実行してみま…
Rangeにシート!範囲を渡す1.Set r1 = Range("Sheet2!A1:D5")を初見で見て、ビックリした00:00 派遣先で見たコードにビックリSet r1 = Range("Sheet2!A1:D5")↑これ、できるの？シート名書いてるけど、いけるのか？ってことで、 門外不出の秘密コードを頭の隅…
ひな型スライド複数ページをコピーして使う Slides.Range(Array(1, 2)).Copy をテストExcelからPowerPointにデータをセットする解説動画の コメント欄に テンプレを2枚(複数)をコピーしながら、 Excel A～C,D～FをPowerPointに2枚単位でデータを流し込む、 …
バグ・不具合の原因がウインドウの幅だと思い込み、 決めつけてデバッグした失敗動画ですが VBAデバッグでウォッチ式使用方法の参考となれば幸いです。 youtu.be https://youtu.be/9qlahSwozo8 目次 00:00 現状とやりたいことを説明 01:40 STOPで止めてウォ…
下記のコード1行を #イミディエイト に打ち込んで確認してみてください ActiveInspector.Width = 800 と言われたら？いきなり、経験者・自分たちの目線で話したけど、 ？の人、初めての人は何言ってんだコイツと、あせると思います。youtu.be https://youtu.…
Dim oLABEL As DataLabel グラフのデータラベルオブジェクトに対して表示フィールドの追加 oLABEL.Format.TextFrame2.TextRange _ .InsertChartField msoChartFieldFormula, "=Sheet1!$C$7" で、シートのセルとリンクさせる、そんなテスト動画です。 youtu.b…
ワイドと三連複のオッズを取得したい と質問があったので、 今回は、三連複のオッズ取得に挑戦してみます。下記、デバッグ動画です、うまくコードをアレンジしてみてください。 youtu.be https://youtu.be/MEOvxlcubAw 目次 00:00 挨拶と実行テスト 02:36 オ…
PowerPoint VBAのイベントで、 アニメーションのイベントを探ってみました と言っても WithEvents App As Application で SlideShowNextClick スライドショー内のクリック SlideShowNextBuild アニメーション 表示前 タイミングをテストしただけでした。また…
やりたいこと: detail.chiebukuro.yahoo.co.jp ＞Outlookで下書きに保存したメールを元に作成してみたいメールがあります。 ＞文字列を日付に変換するだけなのですが、 ＞下書きに保存したメールには書式があります。 ＞OutlookVBAでReplaceしたら書式が消え…
知恵袋の質問 detail.chiebukuro.yahoo.co.jp 既存のパワーポイントファイルのすべてのスライドのフォントを一気に変更することは出来ないのでしょうか？ と あったので マクロを作成し、使い捨てのマクロ処理を設置してみた#パワーポイント #PowerPointVBA …
JRAのホームページから、 ワイドと三連複のオッズを取得したい と質問があったので、 まず、ワイドのオッズ取得にチャレンジしてみます。私Ken3が大好きだったIEのサポートが終了したので、 MSXML2.XMLHTTP と CreateObject("htmlfile")を使用して JRAオッズ…
知恵袋の質問 detail.chiebukuro.yahoo.co.jp ＞エクセルのマクロを開こうと標準モジュールボタンを押してみたところ、 ＞declarationsと右上に表示されるばかりでその他何も表示されません。 ＞これは、マクロが消えてしまったということでしょうか？ にチ…
同じテキストや図形をすべてのスライドに貼り付けたい、 そんな時のために使い捨てマクロを作成してみました。 0.やりたいこと detail.chiebukuro.yahoo.co.jp ＞30スライドある資料全部にテキスト追加して編集したいのですが、 ＞全スライドに一括でテキス…
Set sel = ol.ActiveInspector.WordEditor.Windows(1).Selection .WordEditorで編集 Wordの世界(世界はいいすぎか、Object操作なので、) .Bookmarks("\EndOfDoc").Select この一行を組み込むとよいのでは？下記、いつもの あのあの 解説動画です。 youtu.be …
ワード文章をページ単位でテキストファイルに書き出す そんな動作を行うマクロをデバッグしてみました。下記、いつもの デバッグ動画です youtu.be https://youtu.be/FXNjGsLen18 目次 00:00 あいさつ、やりたいこと 00:50 1.ページ選択のテスト 03:15 2.ペ…
Outlookへ予定を登録後、CalendarViewModeを変更して、カレンダーの表示を変える。 そんな処理にチャレンジしてみました。 Outlookを複数起動していたので、いつも以上にデバッグでハマってしまいました。 お蔵入りレベルのムゴイ動画ですが、よろしくお願い…
