Macro Issue

[#1]

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

[Anil_Babu_Samineni · Accepted solution]

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

[#3]

Hello Anil Babu,

Yes, This is i am looking. Perfect. You saved me lot time. Thank you so much.

[praveenkumar_s]

Deepa,

     Don't use macros bro..Its not good practice...

Thanks,

Praveen kumar S

[Anil_Babu_Samineni]

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

[#6]

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