PictureEffect

[Dossfm0q]

http://office.microsoft.com/en-ca/visio-help/HV080355362.aspx

Dim picEffect As PictureEffect
picEffect.EffectParameters(1).Value = MsoPictureEffectType.msoEffectColorTemperature
_______________________________________________
How to apply ?
Sub PicArtisticEffects()
ActiveSheet.Shapes(1).PictureEffect.EffectParameters(1).Value = MsoPictureEffectType.msoEffectPencilGrayscale
End Sub

Thanks