日々パワーポイントで、スクリーンショットの画像を張り付けて、スライドを作成しています。その際、貼り付けた画像を選択し、『図の書式設定>図の修正>シャープネス>鮮明度+77%』なる操作を行います。操作完了までの手数が多いです。各スライド1or2画像なのですが、複数枚を毎日繰り返し操作します。
マクロ実行の一動作で済むように簡単化したいです。
PowerPoint VBA の画像に関するサンプルを探しました。「画像に灰色の枠線をつける」ものまでは見出しましたが、“鮮明度”を変更・設定するものは見出せませんでした。
PowerPoint VBA で画像の鮮明度を変更するコードを教えてください。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こちら↓を参考にすれば、画像効果の指定ができますよ。
https://learn.microsoft.com/ja-jp/office/vba/api …
上記を参考にして鮮明度を+77%にした例
Sub PictureEffectSample()
With ActivePresentation.Slides(1).Shapes(1).Fill.PictureEffects
' 鮮明度を+77%
Dim EffectSharpen As PictureEffect
Set EffectSharpen = .Insert(msoEffectSharpenSoften)
EffectSharpen.EffectParameters(1).Value = 0.77
End With
End Sub
あとは適宜修正してください。
https://tonari-it.com/powerpoint-vba-shaperange/
ご教授、ありがとうございました。
例示頂いたコードで、当方の求める操作をズバリ一発で行ってくれました。
感謝感激です。
https://learn.microsoft.com/ja-jp/office/vba/api …内をながめてはいたのですが、自力では指摘いただいた部分にはまったく到達できませんでした。VBA能力不足です。これを機に、いろいろPowerPoint VBA、やってみます。作ってみます。
No.2
- 回答日時:
私も自力ではOffice VBA リファレンス内では探せませんよ。
今回は、Excel VBA経由で探しただけなので。
https://sloth-excel.com/img-sharpness/
サイトのマクロにあるInsert(msoEffectSharpenSoften)を
元にして探しただけですから。
https://learn.microsoft.com/ja-jp/office/vba/api …
https://learn.microsoft.com/ja-jp/office/vba/api …
Insert(msoEffectSharpenSoften)経由ならすぐに探せます。
PowerPoint VBAはWordよりもサンプルが少ないですよね。
Excel VBAは日本語で探すのも比較的簡単なので、ヒントを
探すびならExcel経由が早く探せますよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Word(ワード) 分かる方教えてください。 wordに図を差込して資料を作成してますが その図上の説明したい箇所に①と 3 2022/10/20 20:05
- PowerPoint(パワーポイント) この絵のような図はPowerPointのSmartArtで作れますか 2 2023/03/16 23:19
- PowerPoint(パワーポイント) ExcelのグラフをPowerPointに貼り付けした際にデータテーブルの小数点以下を削除したいです 2 2023/02/28 19:46
- PowerPoint(パワーポイント) PowerPoint 文章を上に上げたい。 2 2023/06/22 16:39
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/04/21 13:46
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Illustrator(イラストレーター) ワードに貼った画像のキャンバスと画像本体のサイズの調整 2 2022/05/19 18:31
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
ExcelVBAで色調整は?
Excel(エクセル)
-
powerpointマクロでJPEG画像サイズを変更したい
Visual Basic(VBA)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
PowerpointVBAで指定のShapeオブジェクトを削除したい。
Visual Basic(VBA)
-
5
エクセル 画像のプロパティで縦横比を固定する。 これをVBAでコードにできますか? 知ってる方おられ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UWSCを使った画像認証マク...
-
UWSCの色判定
-
uwcs のマクロで画像認識をして...
-
UWSCでループ処理がうまくいき...
-
UWSC 画像認識で条件分岐
-
Pythonでgif画像が上手く作れない
-
こんなことてしますか??
-
C# Excelのsheetに表示された...
-
UWSC 画像判定と条件分岐について
-
uwscの画像認識に失敗します。
-
UWSC「画像が無い場合」
-
ImageMagickでgif画像の一部が...
-
vb.net 画像の透過について
-
「using Windows」でエラーが出る
-
uwsc画像認識のあいまい判定に...
-
uwscで画像がうまく認識できない
-
UWCSでのランダムクリック入力...
-
uwscについて質問です。
-
uwscについて質問です。
-
uwscについての質問です。 画面...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【EXCEL VBA】ダブルクリックで...
-
こんなことてしますか??
-
Pythonでgif画像が上手く作れない
-
Excel ユーザーフォームで表示...
-
VBA シート毎に画像挿入
-
生成AI画像について
-
EXCEL VBA 複数のImageコントロ...
-
HTMLで画像をポップアップで表...
-
UWSCの色判定
-
UWSC 画像判定と条件分岐について
-
jQuery . プログラミング 助け...
-
VBAのユーザーフォームのイメー...
-
背景画像の繰り返しについて
-
jqueryスライダーを2段でスライ...
-
vb.net 画像の透過について
-
【WPF】画像の切り替え
-
「using Windows」でエラーが出る
-
画像処理したBitmapをピクチャ...
-
スマホでサイトの画像を長押し→...
-
UWSC 画像認識で条件分岐
おすすめ情報