kidproのブログ -20ページ目

kidproのブログ -20ページ目

ホームピグアメブロ

芸能人ブログ人気ブログ

26Dec
- ３　パワーポイント動画作成（アニメーションとナレーション入り）
  最終版『パワーポイント　ビデオ作製　音声の改善』生徒に便利なように次の操作をしているパワーポイントのノートを音声合成でスライドに自動挿入しているこのスライドをビデオに変換すると、いつでもプレゼンを見られるし…ameblo.jpスキーム　完全自動化を目指して！WAVファイルを貼り付けるまで完成しました。これこそRPAです動いているのを見ているだけ！完成　パワーポイントのノートを取り出す完成　ノートを読んで行をクリップボードに入れ音読のプロに転記する完成　音読のプロでWAVファイルを作成する　ページ番号＋行番号.wav 完成　パワーポイントのスライドにWAVを貼り付けるパワーポイントのスライドでWAVをオブジェクトのアニメーションと同期させるビデオの作成CreateWAVfrompptxNotes.py# -*- coding: utf-8 -*-#pip install pywin32#pip install pyperclip#pip install python-pptximport timeimport win32com.clientimport win32guiimport pyperclipimport pptximport timeimport osimport globdef remove_glob(pathname, recursive=True): for p in glob.glob(pathname, recursive=recursive): if os.path.isfile(p): os.remove(p)def main():# 音読のプロ出力先を削除 remove_glob("C:/Users/snortgm/Desktop/*.wav") remove_glob("C:/Users/snortgm/Desktop/*.txt") wshell = win32com.client.Dispatch('WScript.Shell') memoapp = win32gui.FindWindow(None,'音読のプロ Premium') time.sleep(1) win32gui.SetForegroundWindow(memoapp) time.sleep(1)# PPTX読み込み prs = pptx.Presentation('スマホ入門講座_20211014_ナレーション.pptx') for page, sld in enumerate(prs.slides, start=1): lines=sld.notes_slide.notes_text_frame.text w=lines.split("\n") n=0# 1行ごとに名前を付けてWAVを保存する for line in w: pyperclip.copy(line) wshell.SendKeys("%FW"+str(page)+"_+str(n)+"{ENTER}") n=n+1 time.sleep(2)if __name__ == '__main__': main()パワーポイントマクロでWAVを貼り付けます（pythonのライブラリが機能しないのでマクロで作りました）Sub SlideVoice() Dim i As Long Dim cd As String cd = ActivePresentation.Path Dim wavePath As String Dim oSlide As Slide Dim oShp As Shape With ActivePresentation dx = 50 wTop = 50 wleft = 50 buf = Dir(cd & "\wav\*.wav") Do While buf <> "" FileName = cd & "\wav\" & buf fn = Replace(buf, ".wav", "") w2 = Split(fn, "_") sid = Int(w2(0)) Set oSlide = ActivePresentation.Slides(sid) Set oShp = oSlide.Shapes.AddMediaObject2(FileName, False, True, wleft, wTop) Debug.Print FileName With oShp.AnimationSettings.PlaySettings .PlayOnEntry = True .HideWhileNotPlaying = True End With wleft = wleft + dx buf = Dir() Loop End With MsgBox "音声埋め込み完了"End Sub
- ４　パワーポイント動画作成（アニメーションとナレーション入り）
  最終版『パワーポイント　ビデオ作製　音声の改善』生徒に便利なように次の操作をしているパワーポイントのノートを音声合成でスライドに自動挿入しているこのスライドをビデオに変換すると、いつでもプレゼンを見られるし…ameblo.jppythonのpptxがバグがあり、挿入したwavの位置、大きさ、有効化ができない。wav挿入をパワーポイントのマクロで作りましたが、プログラムが２つになるのは気に食わない全部パワーポイントのマクロで作り直しました本当はpythonで作るのがきれいなんですけど！残念！今回は下記のようにしましたVBAマクロ　パワーポイントでプログラミングする言語パワーポイントのすべてのスライドを取得　スライドからノートを取得　ノートを行に分割　　音読のプロが動いているウインドウを見つける　　音読のプロウインドウを一番前にする　　音声化したい文字をクリップボードに入れる　　音読のプロで音声保存操作を行う　　スライドに音声を貼り付ける　　音声を削除するパワーポイントのすべてのスライドを取得　スライドのアニメーション一覧を取得　　初めの音声を先頭に　　音声メディアをアニメーションされてるシェイプの次に配置するビデオで保存とにかくパワーポイントのシェイプに関する情報を調べるのに時間がかかりました。Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As LongPtrDim myHwnd As LongPtrDeclare PtrSafe Function SetForegroundWindow Lib "User32" (ByVal hWnd As LongLong) As LongPrivate Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)Dim s(99) As IntegerConst CPATH = "C:\Users\snortgm\Desktop\1\"Const INTERVAL = 1500Type amimateShape pos As Integer name As StringEnd TypeSub test() Debug.Print reOrderAminateShape(1)End Sub'アニメーションの順番変更　既存シェイプにWAVを位置づけるFunction reOrderAminateShape(sid) Dim amedia(99) As amimateShape Dim ashape(99) As amimateShape' アニメーション　ActivePresentation.Slides(sid).Shapes(k).AnimationSettings.Animate=-1'　名前　ActivePresentation.Slides(sid).Shapes(k).Name'type'msoAutoShape 1 AutoShape'msoCallout 2 吹き出し'msoMedia 16 メディア'msoGroup 6 Group'msoPicture 13 画像'アニメーションシェイプの取得と分類 n = ActivePresentation.Slides(sid).Shapes.Count n1 = 1 n2 = 1 For k = 1 To n If ActivePresentation.Slides(sid).Shapes(k).AnimationSettings.Animate = -1 Then 'アニメーションシェイプ If ActivePresentation.Slides(sid).Shapes(k).type = 16 Then 'メディア amedia(n1).pos = k amedia(n1).name = k n1 = n1 + 1 Else 'その他 ashape(n2).pos = k ashape(n2).name = k n2 = n2 + 1 End If' Debug.Print k & " " & ActivePresentation.Slides(sid).Shapes(k).type & " "; ActivePresentation.Slides(sid).Shapes(k).name End If Next n1 = n1 - 1 n2 = n2 - 1 flg = 0 If n2 > (n1 - 1) Then flg = -1 'シェイプとノートの数が一致しているか？ If flg = 0 Then Call setAnimationOrder(sid, 0, amedia(1).pos, False) '最初のノートWAVを先頭に n = 2 For k = 1 To n2 Call setAnimationOrder(sid, n, ashape(k).pos, False) Call setAnimationOrder(sid, n + 1, amedia(k + 1).pos, True) n = n + 2 Next Else Set myDocument = ActivePresentation.Slides(sid) myDocument.Shapes.AddTextbox(type:=msoTextOrientationHorizontal, _ Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _ .TextRange.Text = "シェイプとノートの数が不一致" End If reOrderAminateShape = flgEnd FunctionSub setAnimationOrder(sid, sorder, shp, cond) ActivePresentation.Slides(sid).Shapes(shp).AnimationSettings.AnimationOrder = sorder '順番 If cond = True Then With ActivePresentation.Slides(sid).Shapes(shp).AnimationSettings .AdvanceMode = ppAdvanceOnTime '直前の動作の後 .AdvanceTime = 0 .Animate = True End With End IfEnd Sub'WAVを貼り付けるSub SlideVoice(sid, fn) Dim i As Long Dim cd As String cd = ActivePresentation.Path Dim oSlide As Slide Dim oShp As Shape dx = 50 wTop = 50 wleft = 0 ' FileName = CPATH & "tmp.wav" FileName = CPATH & fn wleft = wleft + s(sid) * dx s(sid) = s(sid) + 1 Set oSlide = ActivePresentation.Slides(sid) Set oShp = oSlide.Shapes.AddMediaObject2(FileName, False, True, wleft, wTop) With oShp.AnimationSettings.PlaySettings .PlayOnEntry = True .HideWhileNotPlaying = False End With Kill CPATH & "*.wav" Kill CPATH & "*.txt"End Sub'ノートを取得して、1行ごとに音声ファイルを作成するSub getNote() Dim sld As Slide For Each sld In ActivePresentation.Slides Dim shp As Shape Set shp = sld.NotesPage.Shapes.Placeholders(2) w = shp.TextFrame.TextRange.Text w2 = Split(w, vbCr) sid = sld.SlideNumber n = 0 For k = 0 To UBound(w2) fn = "wav_" & sid & "_" & n & ".wav" ' fn = "tmp.wav" wline = w2(k) Call createwav(fn, wline) Call SlideVoice(sid, fn) n = n + 1 Next Next sldMsgBox "done"End Sub '文字を送りWAVファイルを作成するFunction createwav(fn, word) Dim r As LongPtr r = FindWindow(vbNullString, "音読のプロ Premium") SetForegroundWindow (r) Dim cbData As New DataObject cbData.SetText word cbData.PutInClipboard Sleep 100 SendKeys ("%"), True SendKeys ("F"), True SendKeys ("W"), True SendKeys (fn), True SendKeys ("{ENTER}"), True Sleep INTERVALEnd Function
- ５　パワーポイント動画作成（アニメーションとナレーション入り）
  最終版『パワーポイント　ビデオ作製　音声の改善』生徒に便利なように次の操作をしているパワーポイントのノートを音声合成でスライドに自動挿入しているこのスライドをビデオに変換すると、いつでもプレゼンを見られるし…ameblo.jp無事にマクロと音読のプロで全自動でナレーション入りビデオを作成でき、とても満足しています。これからたくさん作るテキストのビデオ化にが楽しみですwindowsの音声合成を使った方法を参考にしましたこれだと音読のプロがいらないです。音声の品質は落ちますが！【PowerPoint】合成音声ナレーション付き動画をPowerPointで簡単に作れる！【マクロ】 | 株式会社アルタのごった煮ブログマークアップエンジニアのアシュリーです！今回は『研修動画をパワポのスクリーンリーダー機能を使って作ろうと思ったけど録画に音声が入らない』というお悩みに答えて、合成音声ナレーショ...www.alta.co.jp
25Dec
- ＩＣＴ活用「みんなで研修」プログラム
  北海道教育委員会の資料です見てみましたが、とてもいい資料です保護者の方も教育の方たちがどのようにICT教育をとらえているのかがわかるので、是非見ておいて損はないですスライド、資料、ビデオがそろっていますスライドはパワーポイントですビデオはyoutubeにありますＩＣＴ活用「みんなで研修」プログラムwww.ictkensyu.hokkaido-c.ed.jp１　今日的に求められる教育の情報化２　ＩＣＴを活用した児童生徒の学びの保障３　ＩＣＴを活用した授業改善４　プログラミング教育の充実に向けて５　情報モラル教育について６　クラウドサービスの活用７　特別支援教育におけるICT活用８　情報活用能力の育成に向けた組織的な取組９　学習者用デジタル教科書の活用
- 花壇の冬準備
  afterbefore刈り取りました土を整地準備した花植えました一か所で疲れてしまいました。もう一つは明日します。白い石の汚れ掃除も明日します日日草を冬越ししてみます結構疲れました明日の予定を止め、もう一つの花壇をリニューアルしました石も少しきれいにしました
- 操作アシストって知ってますか？「Microsoft Search」知ってますか？
  office２０１６から搭載されましたが、ただの検索バーだと思って、私は全く使ってませんでした。今は［Microsoft Search］ボックスと呼ばれていますところがどうも違うようです[実行したい操作を入力]すると、関連した操作の候補を検索してくれて、操作を選択するとその操作をしてくれ、リボンの位置も変わりますこんな機能があったはずなんだけど、リボンに表示されていなかったり、どこのあるのかわからないときに便利です虫眼鏡アイコンをクリックすると、最近使用した操作とお勧め操作が出ます。検索もできますはやりのAIプロンプトと一緒で、文字で質問する力がないといけません。つまりofficeソフトで使用する基本的な文字（操作、機能）などを知っていないと全く効果がありません。使う人もちゃんと勉強しておかなければいけないです。そうすれば効果絶大です。操作アシストですばやく操作する - Microsoft サポートOffice 2016 のアプリケーションの新しい操作アシストボックスは、Office ファイルでのコマンドを検索する新しい機能です。操作アシストフィールドに実行したい操作に関連する語句を入力すると、使用したい機能や実行したい操作にすばやくアクセスできます。support.microsoft.comMicrosoft Searchもありますトップにある検索バーのことです作業を完了するために必要なものを見つけるのに役立ちます検索ボックスをクリックするだけでも、候補が表示されます。たとえば、昨日開始したプレゼンテーションです。これは、作業内容にすばやく戻る方法です。探しているものが表示されたら、それを選択して開きます。Microsoft Search を使って必要な情報を見つける - Microsoft サポートsupport.microsoft.comMicrosoft Search の概要Microsoft Search の概要、その利点、Microsoft Search をサポートするアプリについて学習します。learn.microsoft.com［Microsoft Search］ボックスの使い方と折りたたみOffice2021とMicrosoft 365のOfficeには、アプリケーションヘッダーに［Microsoft Search］ボックスが ...hamachan.info
24Dec
- フライパンの交換時期は
  数年使っているフライパン食材がくっつくんですそろそろ交換時期ですねティファールフライパン 26cm ガス火対応「ハードチタニウム・インテンスフライパン」和平フレイズ大きいフライパン 32cm マーブルコート中くらいと大きめの2個を注文しました。これで料理が楽になります。コーティングしていないフライパンは一生使えるのですが！手入れが面倒ですね。でも、手入れさえすれば食材が全くくっつかないんです。鉄のフライパンも本当はいいような気がします時間と余裕と力があれば鉄ですね。
- メモを極める
  ノート、スマホやパソコンでメモを極めましょう。スマホで写真を撮ってメモにすることがよくあります。いらなくなればすぐ消しますが、たくさんの写真のなかに埋もれてしまいますなにか整理の方法を考えなければいけないですねクラウドストレージにファイルを保管 google keepアプリ onenoteアプリ wordでナビゲーションウインドウを駆使しますメモアプリは、スマホで撮って、作ってパソコンでも見られます。写真、文字を入れられますさらに音声認識で文字にも変換してくれます画像は斜めから撮っても、形を変換してくれます斜めからでも変換してくれますなんでもメモ、WORDでメモです。ブログメッセージにダウンロードリンクを張ってあります
22Dec
- ノートにメモをして大丈夫！
  注目次一覧作成なしとマクロを使わないようにしました。プログラミングができるからすぐマクロという発想はだめですね。なんでもシンプルがいいです2023/12/22 紹介ビデオです2023/12/21　更新ナビゲーションにある見出しをドラッグして文書内の位置を変えられます。メモの重要度などで整理するときに重宝しますパソコンのサポートをしているとこのようなことがありますすぐメモを取られますノートのメモを見ると、今日の日付でいくつかメモをしているノートを見ると古いメモは何度も更新され汚くなっているのでわかりずらい一時的な情報として扱い、捨てる情報ならいいのですが、どうも違うようです聞いてみました後からどこに何があるかわかりますか？いいえ......提案ページにタイトルを付けて、関連する項目ごとにメモをします。日付ではメモしませんノートに記載したら、おうちに帰ってWORDに転記しましょうこれでどうでしょうか溜まったら「袋とじ印刷」すればいいです。もっともっと改善、こんなWORDを作りました各ページには見出し１でタイトルを記述各ページの内容を細かく分けたいときは、「見出し２、３」を使いますナビゲーションを常に表示しておきます、検索、ページへの移動を簡単にナビゲーションにある見出しをドラッグして文書内の位置を変えられます。メモの重要度などで整理するときに重宝します用紙はA5サイズにしたので、収納に便利かな！　横罫線も入れました。サポートの方用に作ったんですが、自分でも使えるかな！ただWORDに転記するより、ちょっとした工夫でとても便利になりますここからダウンロードできますhttps://clinic.mond.jp/contents/%E3%81%AA%E3%82%93%E3%81%A7%E3%82%82%E3%83%A1%E3%83%A2.docx実際の操作は、左のナビゲーションウインドウを使います検索語を入れます。見つかった場所が反転して表示されます見出し一覧が表示されていますので、クリックするとページを移動しますリボンからナビゲーションを選択します。左にウインドウが開きますこれが操作画面ですメモの画面
- 今日は冬至、柚子湯だ
  庭の柚子をとって、お風呂に入れます
20Dec
- microsoftのサイトにあるトレーニング
  いろいろなトレーニングが掲載されています中にはビデオもありますMicrosoft 365 トレーニングMicrosoft 365 ビデオ、チュートリアルで、簡単に生産性を上げます。 Microsoft 365 トレーニングガイドとヒントを調べて、どこからでも誰とでも共同作業を行うことができます。support.microsoft.com
- 教育現場におけるファクスの利用を原則廃止
  いまさらですか？事例入学予定者の名簿を教育委員会が紙で学校に提供し、職員が手入力出席簿への押印作業FAX廃止と校務支援システムを活用して業務をデジタル化するそうですそもそも教員や学校関係者が自分の仕事に疑問を持っていないのが問題ですただシステムを入れたから改善するとは、どうも思えまません。また、システムにデータを入れるための手作業が新たに発生する恐れがあります。名簿がFAXではなくメールでEXCELを送るように変更されたとしますさあ、どうするのでしょうかRPAなどでもよく聞くことですね。EXCELを印刷して校務支援システムに手入力なんてことにならないですよね校務支援システムが名簿を自動入力できるようには作られてはいないはずですから。業務の流れとシステムの機能を総合的に考えて、DXを行わないといけないです事例の「入学予定者の名簿」に関して、業務全体の流れから名簿を教育委員会がどのように作っているかとう根本からスタートしないといけないです入学申し込み試験通知試験採点合否判定合格通知入学手続き名簿作成印刷 FAX送付手作業で校務システム入力FAX廃止＝DXではないです。私なら教育委員会の人が、各学校の教務システムにアクセスして、作成された名簿EXCELから一括入力を行うようにし、入力終了後、完了メールを学校担当者に自動で行うようにいます。学校での作業をゼロにしますそもそも名簿にかかわる業務自体を無くすことができればいいです。「入学試験申し込み」「試験」「採点」「合格通知」「入学手続き」「入学予定者」「校務システム」これらがすべてオンライン化され、相互連携すれば、上記の業務自体がなくなります。こんなことは数十年前にBPR（ビジネス　プロセス　リエンジニアリング）が進んだ企業では行われていたんですが！視点を変えなければいけないです
19Dec
- 久々の岩盤浴
  水を1リットル飲んで、体重は１．５ｋｇ減2.5リットルの汗をかいたことになります若いころはサッカーで９０分で２ｋｇは簡単に減りました大ジョッキーでビールを飲んで食事をすると、元に戻りましたとにかく汗をかくのは気持ちがいいです
17Dec
- パソコンを起動したら、ファイス認証のあと真っ黒画面、マウスが動くだけ
  こんな相談を受けましたよくある現象ネットで探すといろいろな解決方法がありますが、ちょっと！確かにいろいろな原因でこの現象が生じるのですが、頻度の高い原因について言及していませんよくある原因は、高速スタートアップファイルの破損です対応策 CRTL＋ALT＋DELで右隅の電源アイコンから再起動を行うことです多くの確率で回復します最近のパソコンはストレージがＳＳＤなので、高速スタートアップを無効にしてもそれほど問題にならないように思われますでは、高速スタートアップを止めましょうＷＩＮキーを押す一番上で「コントロール」と入れます見つかったらクリックし起動します電源オプションをクリック電源ボタンの動作を選択する現在利用可能でない設定を変更します高速スタートアップのチェックを外します変更の保存をクリック
- イベントのビデオ撮影、大変
  初めてイベントの撮影しました数ギガの写真とビデオを撮りましたしかし、きれいに撮れているのは10％もありません原因ぶれフォーカスが合わない光源による明暗ジンバルの効果はとてもいいのですが、使ったスマホが古いので画質がいまいちです。やはりiphoneで取らないとだめですね古いスマホは光のいいところでは綺麗に取れますが、全体的に見て画質に問題があります1眼での写真、ビデオは良好1眼用のジンバルを使ってビデオを撮るのがいいように思われます。clipchampでビデオを編集してみました。とりあえずいらない部分の削除のみトランジションや音は入れていません編集で時間がかかります。youtuberの苦労がわかります。windows フォトで写真の編集ができます。なかなかいいです。今回は背景をぼかすのを使ってみました今までの写真だけとは比べ物にならないくらい、表現がよくなります。これでどんなイベントだったかが明確に伝えられますyoutubeやホームページにアップしたらいいですねシナリオを用意して取ったのですが、予定通り取れません。被写体と撮影者の位置取りがうまくできませんでしたとにかく撮影が大変です2人以上で取った方がいいです使えるものは全体の１０％以下と考え、とにかくたくさん撮らなければいけませんね次回はIPhoneとカメラジンバルの調達で再チャレンジ！すてきなバイオリニストの間脇佑華さんです
15Dec
- windows11のヒントとコツ
  いろいろなヒントがありますこんなこと知らなかったなんてのがありますWindows 11 のヒントとコツ | MicrosoftWindows 11 をプロのように活用する方法をご確認ください。創造性とつながりを育む革新的な機能を最大限に活用するためのさまざまなヒントとコツをご確認ください。www.microsoft.comPride につながる入力の代わりに話す設定をすばやく変更するゲームで Xbox Game Bar を開 Windows 11 の継続的なイノベーションで最新の状態を保つお使いのPCのアクセシビリティを改善するには開いているアプリをすぐに整理ボードにウィジェットを追加オンラインでお子様の安全を確保 Microsoft Edge でパスワードを管理物理的なファイルのデジタル化 PC に対してウイルスのスキャンを実行するなんでも検索オンラインパスワードの保護スクリーンショットを撮るウィジェットボードを開くファイルをすばやく開くテキストを大きくするキャプションをカスタマイズウィジェットボードを自分好みにスナップでウィンドウを並べて表示外出先でも Microsoft 365 と一緒。2 唯一無二のパスワードでデータを保護クラウドに PC のストレージを保存タッチでナビゲート3 OneDrive アプリをモバイルで入手するテンプレートで創作の幅を広げるウィンドウの整理スワイプでデスクトップをセレクト3 テキストのカーソルやマウスポインタを見やすくする継続的にファイルの保護とバックアップを実行してくださいタスクバーから誰とでもつながれます1 クリップボード履歴にアクセス PowerPoint デザインのアイデアを得る開いたウィンドウを切り替える Web をより安全に閲覧画面をロックする
- Microsoft windows11のご紹介
  新機能の紹介があります Copilot アクセシビリティ機能 Windows Backup スナップアシスト Desktop Groups PC とスマートフォンを同期する　　これはいいですWindows 11 のご紹介: 機能、外観、メリットなど | MicrosoftMicrosoft の最新バージョンの Windows、Windows 11 をご紹介します。お使いの PC を Windows 11 にアップグレードするか、どのデバイスに Windows 11 の機能が搭載されているのかをご確認ください。www.microsoft.com
- ②AIにマクロの設計書を作らせてみた
  私が作ったもう一つのマクロを読ませてみました下記が回答です概要説明としてはなかなかいいです。プログラムが一般の文章と異なるのは、曖昧さが全くないことです。正確な内容で、解釈が明確にできます。生成AIにとっては、得意な分野になるのではないでしょうか人の書いたプログラムをAIに読ませてみると、内容の理解が簡単になります。「音階」を「文字」にすれば正解ですマクロも生成AIにドキュメントを作らせれば、まだまだ生き残れるのではないでしょうかこどもたちにプログラミングとはを教えているのですが、生成AIの登場で教える内容が大きく変化しなければならないです。プログラミング的論理思考なんて必要なくなるのかな！----------------------このマクロは、PowerPointのスライドにノートに書かれた音階に基づいて音声ファイルを作成し、それをスライドに貼り付けて動画として保存するというマクロです。以下に、このマクロの設計書を作成します。マクロの概要マクロ名：start マクロの目的：PowerPointのスライドに音声を付けて動画として保存するマクロの入力：スライドのノートに書かれた音階マクロの出力：音声ファイルと動画ファイルマクロの前提条件：音階はC4からB5までの半音階で表記される。音階の区切りは改行で行う。音声ファイルはプレゼンテーションと同じフォルダに「voice.wav」という名前で作成される。動画ファイルはプレゼンテーションの名前に「.mp4」を付けたものになる。マクロの処理フロープレゼンテーションのパスを取得し、音声ファイルのパスを設定する。 getNoteandCreateWAVというサブプロシージャを呼び出して、音声ファイルを作成する。このサブプロシージャでは、各スライドのノートに書かれた音階を読み取り、周波数を計算し、音声ファイルに書き込む。全てのスライドに対して、reOrderAminateShapeという関数を呼び出して、アニメーションの順序を変更する。この関数では、音声ファイルを最初に再生するようにし、その後に既存のシェイプのアニメーションを行うようにする。プレゼンテーションを動画として保存する。動画の名前は、プレゼンテーションの名前に「.mp4」を付けたものになる。マクロの終了をメッセージボックスで知らせる。
14Dec
- AIにマクロの設計書を作らせてみた
  microsoft365のアプリには当初からVBA（マクロ）が使えますアプリの機能,windowsの機能などを使うことができ、本格的な操作ができますしかし下記の状況で悪意のあるウイルスを混入できることから、デフォルトでは実行が無効になっています。SHIFTキーを押しながらアプリを起動するとマクロを起動させないことができます。開発でマクロのソースを見ることは可能ですが、プログラマでないと、どのような操作をするのかわかりません言語仕様が過去のもので、最新の言語と比べ見劣り作成者が素人なのでメンテナンスができないこのためマクロは止めようという方向に進んでいます。でもまだまだマクロはとてもいい機能なので捨てがたいです。なんとかならないものでしょうか実際のプログラム開発では、様々なドキュメントが作成されます。このドキュメントにより第3者がアプリのメンテナンスができます。マクロは簡単に作れるため、このようなドキュメントを作成するのは稀なようです。このドキュメント作成にかかわる工数も結構なものになりますAIに聞いてみましょう例として最近作ったマクロで試してみます綺麗に解析してくれました概要設計としては申し分ないですこれって使えるんじゃないですか！既存のマクロの設計書をAIで作りましょう逆に、このような設計ドキュメントをAIに入れれば、マクロを作ってくれるのではないでしょうかそうすれば何を作りたいか具体的に記述すればAIがプログラムを作ってくれるはずです。これからのプログラマの仕事のやり方が大きく変わりますマクロのソースをcopilotに貼り付け「このマクロのドキュメントを作ってください」と入れますこのマクロは、PowerPointのスライドを画像としてエクスポートし、Wordに挿入するという機能を持っています。以下に、このマクロの設計書を作成するための手順を示します。マクロの目的と概要を記述するマクロの目的は、PowerPointのスライドをWordに挿入することで、報告書や資料の作成を効率化することです。マクロの概要は、以下のようになります。マクロは、Wordと同じフォルダにあるPowerPointファイルを探し、見つかった場合はそのファイル名を変数に格納します。マクロは、PowerPointファイルを開き、各スライドを画像としてエクスポートします。画像は、Wordと同じフォルダに「images」というサブフォルダを作成し、そこに保存します。マクロは、エクスポートした画像の数をカウントし、Wordに挿入します。画像は、行内形式で挿入され、枠線が付きます。マクロは、音声合成の機能を使って、作業の進捗や完了をユーザーに伝えます。マクロの入力と出力を記述するマクロの入力は、Wordと同じフォルダにあるPowerPointファイルです。ファイル名は任意ですが、拡張子は「.pptx」である必要があります。マクロの出力は、Wordに挿入された画像です。画像は、PowerPointのスライドと同じサイズで、行内形式で挿入されます。また、画像には枠線が付きます。マクロの処理の流れを記述するマクロの処理の流れは、以下のようになります。マクロは、Sub PPTXスライドをwordに挿入します()というメインのプロシージャから始まります。マクロは、Function getPPTX()という関数を呼び出して、Wordと同じフォルダにあるPowerPointファイルの名前を取得します。ファイルが見つからない場合は、エラーメッセージを表示して終了します。マクロは、Call pptx2Imageというサブプロシージャを呼び出して、PowerPointファイルを開き、各スライドを画像としてエクスポートします。画像は、「images」というサブフォルダに保存されます。マクロは、Call insertAllImageというサブプロシージャを呼び出して、エクスポートした画像をWordに挿入します。画像は、行内形式で挿入されます。マクロは、Call 図に枠線をつけるというサブプロシージャを呼び出して、挿入した画像に枠線を付けます。枠線の色や太さは、定数で指定されます。マクロは、Sub speakというサブプロシージャを呼び出して、作業の進捗や完了を音声で伝えます。音声合成の機能は、Excelのオブジェクトを利用します。マクロのコードを記述するマクロのコードは、以下のようになります。Dim imageFolderDim ttsDim pptxNameSub PPTXスライドをwordに挿入します()' 画像挿入マクロMain　パワーポイントでエクスポートされたスライド画像を取り込むマクロです'ｐｐｔｘとこのＷＯＲＤを同じところに置いてください'このマクロをWORDで実行してください'音声合成のため　参照設定：Microsoft Excel 16.0 Object Library' tts = True imageFolder = "images" pptxName = getPPTX() 'pptxを探す StatusBar = "PPTXエクスポート" Call pptx2Image 'PPTXエクスポート StatusBar = "画像挿入" Call insertAllImage '挿入 StatusBar = "画像すべてに枠線を付ける" Call 図に枠線をつける '画像すべてに枠線を付ける StatusBar = "" speak ("完了しました")End SubSub insertAllImage()'speak ("WORDにpowerpointのエクスポートされた画像を挿入します")Dim objFso As ObjectSet objFso = CreateObject("Scripting.FileSystemObject")Dim strPath As String'ドキュイメントのパスstrPath = ThisDocument.Path'画像ファイル数を見つけるn = 0Dim obj As ObjectFor Each obj In objFso.getfolder(strPath & "\" & imageFolder).Files If InStr(obj.Name, ".png") <> 0 Then n = n + 1Next objSet objFso = Nothingspeak ("画像が" & n & "個見つかりました。挿入します")'挿入For k = 1 To n cname = strPath & "\" & imageFolder & "\" & Trim(k) & ".png" Selection.InlineShapes.AddPicture FileName:=cname, LinkToFile:=False, SaveWithDocument:=TrueNextEnd Sub'参照設定：Microsoft Excel 16.0 Object LibrarySub speak(line) If tts = True Then Dim ExObj As Object Set ExObj = CreateObject("Excel.Application") ExObj.Speech.speak line ExObj.Quit Else MsgBox line End IfEnd SubFunction getPPTX()'wordと同じ場所にあるPPTXを探す Dim objFso As Object Set objFso = CreateObject("Scripting.FileSystemObject") Dim strPath As String strPath = ThisDocument.Path getPPTX = "" Dim obj As Object For Each obj In objFso.getfolder(strPath).Files If InStr(obj.Name, ".pptx") <> 0 Then getPPTX = obj.Name Exit For End If Next obj Set objFso = NothingEnd FunctionSub pptx2Image()'、画像にエクスポートします speak (pptxName & " powerpointを画像にエクスポートします") Dim strPath As String strPath = ThisDocument.Path Dim p, f, s With CreateObject("PowerPoint.Application") Set p = .Presentations.Open(strPath & "\" & pptxName, -1, 0, 0) With CreateObject("Scripting.FileSystemObject") f = .BuildPath(strPath, imageFolder) If Not .FolderExists(f) Then .CreateFolder f For Each s In p.Slides s.Export .BuildPath(f, s.SlideNumber & ".png"), "png" Next End With .Quit End WithEnd SubSub 図に枠線をつける() 'このマクロは「行内」画像にしか作用しません。 Const THEME_COLOR As Integer = wdThemeColorBackground2 Const TINT_AND_SHADE As Long = 0 Const BRIGHTNESS As Double = -0.25 Const WEIGHT As Double = 0.5 Dim shp As InlineShape Dim shapes As Variant Selection.WholeStory Set shapes = Selection.InlineShapes For Each shp In shapes If shp.Type = msoChart Then shp.line.Visible = msoTrue If DEBUG_MODE Then shp.line.ForeColor = RGB(255, 0, 0) Else shp.line.ForeColor.ObjectThemeColor = THEME_COLOR End If shp.line.ForeColor.TintAndShade = TINT_AND_SHADE shp.line.ForeColor.BRIGHTNESS = BRIGHTNESS shp.line.WEIGHT = WEIGHT End If Next shp Selection.CollapseEnd Sub
11Dec
- にせサギ見て触れて学ぶネットサギ体験学習サービス
  ネット詐欺を安全に体験サービスは全て無料確認テスト教材もダウンロードできますにせサギ | 見て触れて学ぶネットサギ体験サイトにせサギはネット見て触れて学ぶネットサギ体験サービスです。ワンクリック詐欺、フィッシング、サポート詐欺などを体験できます。また、解説と教え方についても一緒に学べるサービスです。nisesagi.com