Hello Team,
This is my first reply
I do have two table 1) Straight table 2) Pivot Table
I want to change text and font and format from Pivot
How to achieve this, My client allow Macros as well, If 6/7 Lines
Hello Deepa,
Let's Assume, If you have two objects like straight object is CH01 and Pivot table is CH02
Then you want to change format for CH02, Then you need to copy paste this on your VBA
Use short key for that Ctrl + M, Then copy and paste then see, If working good
SUB Font
set obj = ActiveDocument.GetSheetObject("CH02") // set obj = ActiveDocument.GetSheetObject("CH01")
set fnt = obj.GetFrameDef.Font
fnt.PointSize1000 = fnt.PointSize1000 + 1000
fnt.FontName = "Calibri"
fnt.Bold = false
fnt.Italic = false
fnt.Underline = true
obj.SetFont fnt
END SUB
Hello Deepa,
Let's Assume, If you have two objects like straight object is CH01 and Pivot table is CH02
Then you want to change format for CH02, Then you need to copy paste this on your VBA
Use short key for that Ctrl + M, Then copy and paste then see, If working good
SUB Font
set obj = ActiveDocument.GetSheetObject("CH02") // set obj = ActiveDocument.GetSheetObject("CH01")
set fnt = obj.GetFrameDef.Font
fnt.PointSize1000 = fnt.PointSize1000 + 1000
fnt.FontName = "Calibri"
fnt.Bold = false
fnt.Italic = false
fnt.Underline = true
obj.SetFont fnt
END SUB
Hello Anil Babu,
Yes, This is i am looking. Perfect. You saved me lot time. Thank you so much.
Deepa,
Don't use macros bro..Its not good practice...
Thanks,
Praveen kumar S
Praveen, Would it possible without macros. If so, It's good to know. Would you share your thought to achieve this so that i can implement as per ur recommend.
Thanks in advance
Yes, I had thought same. But, I didn't find good option here. still waiting for that. Let's have see might Gurus can help us