Shape PrintObject Help

[CaliKidd]

In lieu of using a forms command button object on a chart, I've decided to use a bevel shape (mainly for cosmetic reasons). I've assigned a macro to it and it's working fine, but I do not want it to be a printable object.

I've tried the following, but it isn't working (i.e., it still prints). The first line is selecting the shape, but the second line doesn't appear to be working. I'm not getting an error message. What am I doing wrong?

Private Sub Chart_Activate()
    ActiveSheet.Shapes("Bevel 1").Select
    Selection.PrintObject = False
End Sub

 

[Michael M]

IN 2007.
Right click on the object, Select Size and Properties / Properties
Then uncheck Print Object.

This is a once only action so code isn't needed

 

[CaliKidd]

Thanks, Michael. I am using Excel 2007 too. I should have mentioned that up front.

I did try to solve this in the way you described before I posted this topic, but when I right-clicked Size and Properties, Properties, there was no "Print Object" option, only a "Size With Chart" and a "Don't Size With Chart" option. I found that odd, so I proceeded by looking for a programmatic solution.

 

[Michael M]

Seems odd, it's clearly there in 2007

Are you using 2007 Beta or a variant of the proper version of 2007 ?
The 2007 Beta didn't allow the user to set this option.

 

[CaliKidd]

Michael, as far as I am aware, this is the proper version of Excel. Office 2007 came preinstalled on this machine and I have no reason to believe it is a beta or variant because I get Office updates fine and have SP2 installed. If the problem is with this version of Excel itself, then I'll have to take the matter up with the IT dept on Monday.

Any ways, just to be sure we're on the same wavelength, here is what I did:

From the menu, I clicked Insert, Shapes and then selected the Bevel shape in the Basic Shapes group. It is the first shape on the third row of shapes.

When I click Print Preview, the object is still visible and it also comes out on the printed sheet.

I've also tried this (below), but it still didn't work either:

    ActiveSheet.Shapes("Bevel 1").ControlFormat.PrintObject = False

 

[CaliKidd]

Michael, FYI - I just found this article on the net. Apparently others have run into the same problem, so I can only assume at this point that it is a bug in Excel?

Not worth losing a lot of time over. If necessary, I'll just go back to the Forms command button, which I can de-select as a printable object. The command button not as aesthetically pleasing as I'd like, but at least it won't show up on the printout.

http://answers.microsoft.com/en-us/...cel-2007/b9a33a7e-0671-e011-8dfc-68b599b31bf5

 

[Michael M]

Hmm, unlikely a bug.....
I jusr ran this code in 07 and it worked fine !!

Sub shapetest()
Dim shapes As Object
With ActiveSheet.shapes("Bevel 1")
    .ControlFormat.PrintObject = False
End With
End Sub