"ramkumar_cpt"
Hi Bob,
I tried to create the new sheet. But I could not able to create
the same existing sheet.
Allignment, chart size etc has differed in
new sheet. if i use same existing sheet code, then i can create the
similar one. so i asked.
Do you mean that you cannot re-create it manually because you aren't
sure how to do it in terms of the settings?
If so, then the only other option I can think of would be to use the
object model and manually trawl through every property of a chart
object to see what they are set at.
Something like this perhaps in a standard module (assuming you have
just the one chart on the active worksheet - if not, then make it so
that it *is* the only chart on the sheet in a copy of the workbook)
and always backup your workbook before experimenting with anything:
Sub ExamineChartObject()
Set ChartToExamine = ActiveSheet.ChartObjects(1).Chart
End Sub
Now step through that macro until the 'End Sub' is highlighted, and
the use the 'Locals Window' to examine the 'ChartToExamine' object and
all of its properties / sub-properties down the object tree.
For example you might find that:
ChartToExamine.ChartTitle.Font.Bold = True
That would be quite labour intensive to check every property though!
Perhaps someone else knows a way to recursively cycle through each
property and output it as a text string in the above format in a new
worksheet?
HTH,
Alan.
--
The views expressed are my own, and not those of my employer or anyone
else associated with me.
My current valid email address is:
[email protected]
This is valid as is. It is not munged, or altered at all.
It will be valid for AT LEAST one month from the date of this post.
If you are trying to contact me after that time,
it MAY still be valid, but may also have been
deactivated due to spam. If so, and you want
to contact me by email, try searching for a
more recent post by me to find my current
email address
