1 Тема от Alex_Gur

  • Можно ли макросом менять резкость, насыщенность и температуру рисунка?
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Тема: Можно ли макросом менять резкость, насыщенность и температуру рисунка?

Вопрос: Можно ли макросом изменить резкость, насыщенность и температуру выделенного рисунка?
Речь идет о следующих действиях:
Работа с рисунками:Формат – Коррекция – Настройка резкости – Повысить резкость:50%
Работа с рисунками:Формат – Цвет – Параметры цвета рисунка – Насыщенность:0% - Температура: максимум
Спасибо.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

2 Ответ от Boris_R

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110
  • За сообщение: 1

Re: Можно ли макросом менять резкость, насыщенность и температуру рисунка?

Мне кажется, что смотреть надо в сторону EffectParameter Object

Пример из справки для  Object Library Reference for Microsoft Office 2010
The following code sets the first parameter of the PictureEffect object as color temperature.

Visual Basic for Applications
Dim picEffect As PictureEffect

picEffect.EffectParameters(1).Value = MsoPictureEffectType.msoEffectColorTemperature

3 Ответ от Alex_Gur

  • Можно ли макросом менять резкость, насыщенность и температуру рисунка?
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Можно ли макросом менять резкость, насыщенность и температуру рисунка?

Большое спасибо, Борис!

Вот пример из внешняя ссылка , адаптированный для Word:

Sub PictureEffectSample()
' Setup one picture shape.
Set Shape1 = ActiveDocument.InlineShapes(1)
With Shape1.Fill.PictureEffects
 
 ' Insert a 150% Saturation effect.
 .Insert(msoEffectSaturation).EffectParameters(1).Value = 1.5
 
 ' 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
 
 ' Remove all Picture effects.
 While .Count > 0
 .Delete (1)
 Wend
 
End With
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4 Ответ от Alex_Gur

  • Можно ли макросом менять резкость, насыщенность и температуру рисунка?
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492
  • За сообщение: 1

Re: Можно ли макросом менять резкость, насыщенность и температуру рисунка?

Константы типов эффектов

внешняя ссылка

MsoPictureEffectType Enumeration (Office)

Office 2013 and later

Specifies constants that define the types of picture effects.

Name         Value           Description

msoEffectBackgroundRemoval      1    Background removal effect (удаление фона).
msoEffectBlur                             2    Blur effect.
msoEffectBrightnessContrast       3    Brightness contrast effect (яркость и контрастность).
msoEffectCement                         4    Cement effect.
msoEffectChalkSketch                   5    Chalk sketch effect.
msoEffectColorTemperature           6    Color temperature effect (цветовая температура).
msoEffectCrisscrossEtching           7    Crisscross etching effect.
msoEffectCutout                           8    Cutout effect.
msoEffectFilmGrain                      9    Film grain effect.
msoEffectGlass                           10    Glass effect.
msoEffectGlowDiffused                  11    Diffused glow effect.
msoEffectGlowEdges                   12    Glow edges effect (подсветка краев).
msoEffectLightScreen                  13    Light screen effect.
msoEffectLineDrawing                  14    Line drawing effect.
msoEffectMarker                           15    Marker effect.
msoEffectMosiacBubbles              16    Mosaic bubbles.
msoEffectNone                             17    No effect (отсутствие эффектов).
msoEffectPaintBrush                     18    Paintbrush effect.
msoEffectPaintStrokes                   19    Paint strokes effect.
msoEffectPastelsSmooth             20    Smooth pastel effect.
msoEffectPencilGrayscale             21    Pencil greyscale effect.
msoEffectPencilSketch                   22    Pencil sketch effect.
msoEffectPhotocopy                     23    Photocopy effect.
msoEffectPlasticWrap                    24    Plastic wrap effect.
msoEffectSaturation                     25    Saturation effect (насыщенность).
msoEffectSharpenSoften              26    Sharpen soften effect (резкость и сглаживание).
msoEffectTexturizer                     27    Texturizer effect.
msoEffectWatercolorSponge          28    Watercolor sponge effect.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.