print the title of the chart

[#1]

Heloa!

i want to print the title of the chart,with the chart itself.

i've been trying to do it in the "print setting" but it doesn't work.. [:(]

can U help me please?

many thanks,

MORAN

[Anonymous]

Shouldn't be a problem... Could you please expalin what "doesn't work", or better post an example?

Regards,
Michael

[sathishkumar_go]

Hi Moran,

Go to Print --> Header/Footer

Green color Icon is File name and next to that sheet name

just allign where u want

I hope this 1 is help for u.

[#4]

YAP, I know it's working 🙂

i need kind of built-in title..for example:

how the user get the title of the chart on excel file?

[Anonymous]

Sending table to excel it's a different matter.
You can create a macro that gets chrt title (caption?), copies it to excel, and after that copies the table itself.
Regards,
Michael

[#6]

many thanks!

So I will try to create the macro, but if U have the code available

I will B glad if U can post it =]

thanks ahead

Moran

[#7]

Many thanks!

So I will try to create the macro, but if U have the code available

I will B glad if U can post it =]

thanks ahead

Moran

[Anonymous]

I cannot attach an example here, probably because this thread is a discussion, not a question. Here is an example of macro:

sub SendToXL
 ' Excel
 set XLApp = CreateObject("Excel.Application")
 XLApp.Visible = True
 set XLDoc = XLApp.Workbooks.Add

 ' Get table
 set tbl = ActiveDocument.GetSheetObject("CH01")

 ' get caption
 cap = tbl.GetCaption.Name.v
 ActiveDocument.Variables("vCaption").SetContent cap, true
 ActiveDocument.GetSheetObject("TX01").CopyTextToClipboard
 ' Copy table to Excel
 set XLSheet = XLDoc.Worksheets(1)
 ' caption
 XLSheet.Paste XLSheet.Range("A1")
 ' table
 tbl.CopyTableToClipboard true
 XLSheet.Paste XLSheet.Range("A2")
end sub

You can notice, that I'm using here a variable vCaption, and a textbox TX01 that contains text =vCaption. It is simpler (for me) to copy it from a text box.
Make sure to allow system access for macros.