Dear Reader

Thank you for your attention. In my Macro in Excel, I had
the following statement to make the column chart filled with Sample.jp
with scale 500:1

Selection.Fill.UserPicture PictureFile:= _
' "C:\Documents and Settings\Administrator\My Documents\M
Pictures\Sample.jpg", _
PictureFormat:=xlStackScale, PictureStackUnit:=500
PicturePlacement:= _
xlAllFaces
'Selection.Fill.Visible = True
============================
My problem is , I do not know what should i write in ????
MsgBox ????
in order to detect the PictureStackUnit

I had tried
MsgBox SeriesCollections(1).Fill.UserPicture.PictureStackUnit
But it does not work
because I think .UserPicture just pass 4 parameters to the class.

Would you help me a bit , if you can!
Thanks you very much for your attention

My email is (E-Mail Removed)
Anthony H

--
Message posted from http://www.ExcelForum.com

Anthony -

You need to call it by its other name.

ActiveChart.SeriesCollection(1).PictureUnit

This tells you how it was scaled:

ActiveChart.SeriesCollection(1).PictureType

The constants are 1: Stretch, 2: Stack, 3: StackScale.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
http://PeltierTech.com/Excel/Charts/
_______

ehhm35 < wrote:

> Dear Reader
>
> Thank you for your attention. In my Macro in Excel, I had
> the following statement to make the column chart filled with Sample.jpg
> with scale 500:1
>
> Selection.Fill.UserPicture PictureFile:= _
> ' "C:\Documents and Settings\Administrator\My Documents\My
> Pictures\Sample.jpg", _
> PictureFormat:=xlStackScale, PictureStackUnit:=500,
> PicturePlacement:= _
> xlAllFaces
> 'Selection.Fill.Visible = True
> ============================
> My problem is , I do not know what should i write in ????
> MsgBox ????
> in order to detect the PictureStackUnit
>
> I had tried
> MsgBox SeriesCollections(1).Fill.UserPicture.PictureStackUnit
> But it does not work
> because I think .UserPicture just pass 4 parameters to the class.
>
> Would you help me a bit , if you can!
> Thanks you very much for your attention
>
> My email is (E-Mail Removed)
> Anthony Ha
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>

Dear Jon Peltier, Microsoft Excel MVP


Your great help save my work a lot
Thanks you very much

If you need any help in future, feel free to email me!
Thanks you Jon Peltier, Microsoft Excel MVP


From (E-Mail Removed) Anthony Ha

--
Message posted from http://www.ExcelForum.com

Anthony -

Glad to help.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
http://PeltierTech.com/Excel/Charts/
_______

ehhm35 < wrote:

> Dear Jon Peltier, Microsoft Excel MVP
>
>
> Your great help save my work a lot
> Thanks you very much
>
> If you need any help in future, feel free to email me!
> Thanks you Jon Peltier, Microsoft Excel MVP
>
>
> From (E-Mail Removed) Anthony Ha,
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>