スポンサーリンク

Powerpoint VBA(マクロ)で選択した画像の枠線の色を変更する、赤い色抜きの四角形を挿入する

セミナー情報です!
◆8/23、9/20 30代半ばからの「税理士試験 & 大学院」セミナー

2019年9月11日 19:13 に松井会計事務所の、東亜大学通信制大学院(法学専攻) 入試対策コンサルにお申込み頂いた方へご連絡差し上げます。

返信用にご入力頂いたメールアドレスが間違っていたようでして、返信のメールが送れませんでした。

つきましては、再度メールアドレスをご確認のうえフォームよりお申込み頂けますでしょうか。

お願い致します。

東亜大学通信制大学院(法学専攻) 入試対策コンサル

———————————


ブログで使う画像は、パワーポイント(Powerpoint)を使って加工しています。

解説用の記事を書くときなどにプリントスクリーンした画像に文字を加えたりする場合です。

例えば以下のように ↓

Image(12)

パワーポイントでの操作を楽にするために VBA でマクロをいくつか作って使っています。

今回

・選択した画像の枠線の色を変更するマクロ
・図形を挿入するマクロ

を作りましたので紹介したいと思います。

スポンサーリンク

1、選択した画像の枠線の色を変更するマクロ

ブログで淵が白い画像を使うときは、灰色の枠線を付けるようにしています。

例えばプリントスクリーンで作った以下の画像は枠線が無い状態です。枠線が無いとなんかピリッとしない気がしませんか?

Image(13)

ですので、このような画像を使う場合にはいつもパワーポイント上で灰色の枠線を付けるようにしています ↓

Image(14)

そのパワーポイント上の作業を毎回手作業でやるよりも VBA を使った方が若干時間が縮まると考えました。

画像を選択した状態で Alt + F8 で実行するようにしています。

Image(15)

全 VBA コード

以下に全コードを示します。

VBA コード説明

編集する画像はオブジェクト(操作対象)となるので、オブジェクト型で定義しました。

Set Pic = ActiveWindow.Selection.ShapeRange

で、変数 Pic に作業中のウインドウの選択した図形を入れています。

Selection オブジェクトの ShapeRange プロパティを使っています。

上記の部分で画像の枠線の太さを1ポイントとし、色を RGB で灰色にしています。

画像の枠線は

オブジェクト.Line

でオブジェクトの Lineプロパティとして指定します。

2、赤い色抜きの四角形を挿入するマクロ

次に、赤い色抜きの四角形を挿入するマクロを紹介します。

以下については、リンク先にある個別のフォームよりお願い致します。-----------------------
◆8/23、9/20 30代半ばからの「税理士試験 & 大学院」セミナー
◆メルマガ登録

何かの解説記事を書くときには赤枠で囲うことが多いので、そのためのものを挿入するためです。

Image(16)

全 VBA コード

以下に全コードを示します。

VBA コード説明

今開いているスライドに図形を挿入したいわけです。

図形を挿入したいスライドを指定するためにスライドのインデックス番号が必要です。

    Num = ActiveWindow.Selection.SlideRange.SlideIndex   

で変数 Num にアクティブなスライドのインデックス番号を入れています。

ActivePresentation.Slides(Num).Shapes.AddShape(Type:=msoShapeRectangle, Left:=100, Top:=100, Width:=100, Height:=100)

により、インデックス番号が Num のスライドに図形を挿入します。

Shapes オブジェクトの AddShape メソッドを使っています。

Type:=msoShapeRectangle, Left:=100, Top:=100, Width:=100, Height:=100

上記部分は、msoShapeRectangle で四角形を表し

Left:=100, Top:=100, Width:=100, Height:=100 で四角形の挿入位置と幅・高さを指定しています。

Left:=100, Top:=100 は挿入位置

Width:=100, Height:=100 は幅と高さ

この部分では挿入した四角形の枠線の太さと色を変更しています。また、塗りつぶしを無しにしています。

3、Alt + F8 でマクロ実行

マクロの実行に「Ctrl + アルファベット」でショートカットキーを設定できればいいのですが、残念ながら Powerpoint VBA ではできません。

(できるようになってほしい。。)

ですので、マクロの実行は Alt + F8 で行うようにしています。Alt + F8 を押すと以下のウインドウが出てきます。

実行したいマクロの選択は上下の方向キー(↑↓)で行い、実行ボタンへの移動は TAB キーで行います。

そして、Enter キーを押して実行します。

①方向キー(↑↓)で選択

  ↓

②TAB キーで「実行ボタン」に移動

  ↓

②Enter キーで実行

image

こうやって使うことで、マクロを使わない場合よりも多少は作業時間を短縮できていると考えます。

4、まとめ

選択した画像の枠線の色を変更するマクロ、赤い色抜きの四角形を挿入するマクロを紹介しました。

ブログ画像編集のためにパワーポイントを使うことが多い自分としては、作業時間を短縮する方法は常にけんきゅうしたいものです。

編集後記

週末カラオケサークルに参加してきました♪

たくさん歌えて楽しかったです ^^

ボイトレはじめようかなぁ〜(悩)

妻の誕生日だったので夜はケーキでお祝い

Image 20190402 213346

以下については、リンク先にある個別のフォームよりお願い致します。-----------------------
◆8/23、9/20 30代半ばからの「税理士試験 & 大学院」セミナー
◆メルマガ登録