Thank you so much Andy. The latter way worked well. The first way I met
a bug on the line
sngWidth = ActiveChart.Parent.Width
Don't know how to debug it. Could you help more? Thanks a lot!