ここから本文です

エクセルで複数枚の画像を開いた後に、 開いた全ての画像に対して図形の書式設定...

j_c********さん

2019/4/2612:00:04

エクセルで複数枚の画像を開いた後に、
開いた全ての画像に対して図形の書式設定より

・明るさ:30%
・鮮やかさ:120%
・温度:6,800

を一括で変更できる方法を探しています。

記憶マクロでやってみたのですが思うようになりませんでした。

どうぞよろしくお願いいたします。

閲覧数:
18
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

ann********さん

2019/4/2717:33:35

複数画像を選択すると設定できないようですので、個々に設定するほかないのでしょう。
ですので、次のような記述のマクロで自動的に順に設定することになるかと思います。(ネット検索に苦労しました)

Sub Test()
Dim shp As Object
For Each shp In ActiveSheet.Shapes
With shp
.PictureFormat.Brightness = 0.65 '※
.Fill.PictureEffects.Insert(msoEffectSaturation) _
.EffectParameters(1).Value = 1.2
.Fill.PictureEffects.Insert(msoEffectColorTemperature) _
.EffectParameters(1).Value = 6800
End With
Next
End Sub

※:ここの値についてはわかりませんでしたが――
図の書式設定ダイアログでは明るさのデフォルトが 0% なのですが、VBAでは 0.5 のようなので、書式設定ダイアログでの 30% を、最大値 1.0 と 0.5 の差の 30% ということで、0.5 + 0.15 イコール 0.65 にしてみましたが、マクロ実行後にダイアログを確認したら 30% になっていましたので、この考え方でよいようです。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる