Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1202 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【75804】図ツール→シャープネスの値の指定 Guppy 14/7/8(火) 23:32 質問[未読]
【75817】Re:図ツール→シャープネスの値の指定 kanabun 14/7/10(木) 15:42 発言[未読]
【75818】Re:図ツール→シャープネスの値の指定 kanabun 14/7/10(木) 15:56 発言[未読]
【75820】Re:図ツール→シャープネスの値の指定 Guppy 14/7/10(木) 23:56 お礼[未読]
【75804】図ツール→シャープネスの値の指定
質問  Guppy  - 14/7/8(火) 23:32 -
引用なし
パスワード
   開発環境：Excel2010+Win7Pro
ピクチャを貼り付けた後、図ツール→図の修整→シャープネスという項目が
あると思いますがこの値をVBAにて編集するときはどのようにすればよいでしょうか？

Selection.ShapeRange.PictureFormatのパラメータでは無いかと思うんですが
【75817】Re:図ツール→シャープネスの値の指定
発言  kanabun  - 14/7/10(木) 15:42 -
引用なし
パスワード
   ▼Guppy さん：

>開発環境：Excel2010+Win7Pro
>ピクチャを貼り付けた後、図ツール→図の修整→シャープネスという項目が
>あると思いますがこの値をVBAにて編集するときはどのようにすればよいでしょうか？

Selection.ShapeRange.Fill.PictureEffects オブジェクト

のInsertメソッドで 対象とする EffectType を挿入するようなことが
Help の
PictureEffects.Insert メソッド
に書いてあります。

>　' Insert Brightness/Contrast effect and set values to -50% Brightness and +25% Contrast.
>　 Dim brightnessContrast As PictureEffect
>　 Set brightnessContrast = .Insert(msoEffectBrightnessContrast)
>　 brightnessContrast.EffectParameters(1).Value = -0.5
>　 brightnessContrast.EffectParameters(2).Value = 0.25

上の例は
.Insert(msoEffectBrightnessContrast)
でしたが、
MsoPictureEffectType 列挙
をみると、
msoEffectSharpenSoften
というのがあるので、シャープネスなら これを使うのかな？

自分は使ったことないので 正解は分りません。
【75818】Re:図ツール→シャープネスの値の指定
発言  kanabun  - 14/7/10(木) 15:56 -
引用なし
パスワード
   画像を挿入してそれを選択して実際に実験してみました。

Sub test1()
　　Dim pic As ShapeRange
　　Set pic = Selection.ShapeRange　'選択画像
　　With pic.Fill.PictureEffects
　　　　With .Insert(msoEffectSharpenSoften)
　　　　　　.EffectParameters(1).Value = 0.3
　　　　End With
　　End With
End Sub

.EffectParameters(1).Value = 0.3 とすると 30% Sharpen,
.EffectParameters(1).Value = -0.3 とすると 30% Soften されるようです。
【75820】Re:図ツール→シャープネスの値の指定
お礼  Guppy  - 14/7/10(木) 23:56 -
引用なし
パスワード
   kanabun さん

ありがとうございました。
ご享受いただいた内容で、思ったように動作いたしました。
非常に助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1202 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free