VBA 変数 基本

パワーポイント VBA マクロ 基本 オブジェクトについて

imihitoさんとのコメントのやりとり，TextRange.RunsメソッドとTextRange2.Runsプロパティ:パワーポイントマクロ・PowerPoint VBAの使い方-TextFrame・TextRangeの記事を参考にさせてもらってたらなんとなくイメージが固まってきたので，上付き文字はとりあ…

これは，多肢選択問題集みたいなものを作ったときに使ったコードを書き直したものです。 普段は必要性はまず無いと思いますが，スライドショー形式で配布をした場合，編集の仕方が難しいので，ファイルを選ぶだけで挿入できるように作ってみました。 画像が…

このあたりを公開しだすと，知り合いにばれるなーと思いちょっと迷ってたんですが，ばれてもいいやと思いはじめました。thomさん，imihitoさんに助けてもらって，本や自分がネット検索から探している程度じゃ出会えないいろいろな知識にものすごいスピードで…

パワーポイント VBA マクロ 基本

Sinカーブを描くのは以前やりましたので，少しコードを足して動かしてみます。すごいシンプルです。書いて消す 書いて消す 書いて消す・・・(;´▽｀A``テキストを一つ書かせるようにしましょう。これをしないと コマが飛んだり動きがぎこちなかったりします。…

昨日の夜寝る前におもいついたことを忘れていました。朝早くて，通勤距離が長いのでなんでも忘れる。思い出したときにばぁーっと吐き出すので文がひどいですねスミマセン。長く小出しにするのがブログ的にはいいんでしょうけど，性分ではないので，とにかく…

ちょっとExcelのことが増えたので，なかなか増えないパワーポイントVBAを載せるって方面に少し戻します。多肢選択のクイズを作ったときに作ったしくみです。どうしても，化学反応式などを扱うと，上付き下付きがちゃんと生きないともやっとします。でも意外…

ほんと二ヶ月前までは，PowerpointのVBAなんかやってられないと思ってたので，今の自分があるのはわけがわかりません。Excelのほうは，Ver5とかの頃から触れていて，当時からVBAがあったかどうか忘れはしたものの， けっこう早い段階から記録マクロから不要…

テキストでクイズの取り組み履歴の書き出し等メモってたので，転記 Option Explicit 'テキスト読み込み Sub ReadText() Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject") Dim ts As Object: Set ts = fso.opentextfile("textファイ…

SetTimer KillTimer API

扇形 Powerpoint VBA タイマー用

ユーザー名じゃなくて，表示名，フルネームがほしい場合について調べていたメモがノートにあったので，自分用にまとめます。ユーザーネームを取得してみて，知りたいのはこれじゃあないんだ! となったときに必死に調べて，自分に関係ある部分だけ抜き取った…

パワーポイントのVBAに自信がついてきたころに，同僚から質問されて，困惑したことがあったのを思い出しました。ActiveXのテキストボックスの扱いです。 困惑しましたし，デザインの幅が狭いですし，こんなの・・と思わなくもないですが，とても面白い挙動も…

明後日からは仕事がはじまるので，暇な時間ももう少し。紙のノートのいろいろなところに書いていた内容をだいぶここに書きだせました。ちょっと細かいことを，ここでは書きます。Powerpointは記録マクロがないので，忘れたときあたふたするので。。スライド●…

Powerpoint VBA 画面位置の記録

ExcelでVBAでシステムを設計するとき，イベントがとても使い勝手が良かった。ブックを開いたとき，シートが切り替わるとき，ブックを閉じるとき。同じようなものを期待すると，パワーポイントではその機能は用意はされているけど最初からは使えない。このこ…

Powerpoint VBA インデックスがずれる イテレータ

プログラムを作るときに絶対避けるべきこととして，無限ループがあるとわたしは認識していました。よくやらかして，強制終了の憂き目にあうこともありますが，パワーポイントで遊んでいる中ではそれなりに無限ループと付き合ってます。標準モジュール Option…

グラフが徐々に伸びるアニメーションをさせる方法もいろいろ試行錯誤しました。ShapeオブジェクトのShapeNodeを追加・削除していくとか，各ポイントの座標をずらしていくとか。 Sub NodesTest() Dim shpNodes As ShapeNodes Set shpNodes = ActiveWindow.Sel…

オートシェイプを関数で描かせるには，注意点がいくらかあるので，自分のためにもメモ。 Option Explicit Sub test() Dim TSlide As Slide: Set TSlide = ActivePresentation.Slides(1) Dim i As Long, y As Long Dim StartX As Long: StartX = 50 Dim Start…

年末休みに今まで知り得たことを書き出そうと必死です。すぐ忘れますからね・・。初心もすぐ忘れるので，最初役に立ったことを忘れないうちに。。関数で図を描くためには，座標を把握する必要があります。正しい方法ではないんでしょうけど，忘れてもすぐや…

波動はなかなかイメージできません。自分がイメージできないものは，相手に伝えれませんからけっこう必死。そこで作ってみてたのがこれ。GIFにしてみました。最後カクカクしてるのは， コマ送りボタンによるものです。こんなふうに，関数で書けるのはけっこ…

電子黒板で表示しておくためにタイマーマクロを何度か作りました。 最初はExcelで作ってましたけど，見た目でいろいろ気になることがあり， パワーポイントで作り直しました。 その時検討したのが，音の鳴らし方。試してみたのは 1.Beep2.Beep API3.PlaySoun…

Powerpoint VBA 画面更新 テキストの更新で解決 アニメーションの更新が不規則

Powerpoint トリガーの図形の取得 Powerpoint VBA