vba msgraph changing font

  • Thread starter Thread starter Lance Hoffmeyer
  • Start date Start date
L

Lance Hoffmeyer

Hey all,

I am grabbing data from XL and inserting into existing PPT embedded sheets.
The problems is that some of the numbers are bolded in XL and so they are
bolded when they get inserted into the MSGraph datasheet header column.

How can I "unbold" them? I have tried:


oGraph = PWB.OLEFormat.Object
oGraph.Application.datasheet.Range(oPPTCELL).Value = oVALUE
oGraph.Application.datasheet.Range(oPPTHEADERCELL).Value = oHEADER
oGraph.Application.datasheet.Range(oPPTHEADERCELL).Font.Bold=False

but I get an error?

Thanks in advance,

Lance
 
Hey all,

I am grabbing data from XL and inserting into existing PPT embedded sheets.
Click to expand...

I'm not sure what "PPT embedded sheets" are. Datasheets that're part of an
MSGraph chart, I'd guess. Can you confirm that? Thanks.

The problems is that some of the numbers are bolded in XL and so they are
bolded when they get inserted into the MSGraph datasheet header column.

How can I "unbold" them? I have tried:

oGraph = PWB.OLEFormat.Object
oGraph.Application.datasheet.Range(oPPTCELL).Value = oVALUE
oGraph.Application.datasheet.Range(oPPTHEADERCELL).Value = oHEADER
oGraph.Application.datasheet.Range(oPPTHEADERCELL).Font.Bold=False

but I get an error?
Click to expand...

On what line of code and what is the exact text of the error message?
 
I'm not sure what "PPT embedded sheets" are. Datasheets that're part of an
MSGraph chart, I'd guess. Can you confirm that? Thanks.
Click to expand...

Yes, datasheets that are part of an MSGraph is what I mean.



This is the line where I get the error
 
Yes, datasheets that are part of an MSGraph is what I mean.

This is the line where I get the error
Click to expand...

It's a good idea to leave previous posts quoted, within limits, so we can refer
back to the code more easily.

========= you have ===================
oGraph = PWB.OLEFormat.Object
oGraph.Application.datasheet.Range(oPPTCELL).Value = oVALUE
oGraph.Application.datasheet.Range(oPPTHEADERCELL).Value = oHEADER
oGraph.Application.datasheet.Range(oPPTHEADERCELL).Font.Bold=False
======================================

It seems that you can only format the font for the entire data table, not for
portions of the datasheet. I haven't tested this but try:

oGraph.Application.Datasheet.Font.Bold = False
 
Back
Top