vba msgraph changing font

[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

 

[Steve Rindsberg]

Hey all,

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

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?

On what line of code and what is the exact text of the error message?

 

[Lance Hoffmeyer]

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.

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



This is the line where I get the error

 

[Steve Rindsberg]

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

This is the line where I get the error

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