The following macro works fine until I share the workbook the I get "Requested shapes are locked for selection" '-2147024809(80070057)': This macro has worked for many years with Excel 2000 and 2003.

Question

_{Wednesday, July 20, 2011 2:44 PM}

Sub GraphPrint()
'
' GraphPrint Macro
'
' Keyboard Shortcut: Ctrl+j
'
   
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.ChartObjects("Chart 8").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.ChartObjects("Chart 9").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.ChartObjects("Chart 10").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.ChartObjects("Chart 11").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("A4").Select
End Sub

All replies (4)

_{Wednesday, July 20, 2011 8:45 PM ✅Answered}

I just read in a Microsoft article the following:

Note   Not all features are supported in a shared workbook. If you want to include any of the following features, you should add them before you save the workbook as a shared workbook:

merged cells (merged cell: A single cell that is created by combining two or more selected cells. The cell reference for a merged cell is the upper-left cell in the original selected range.), conditional formats (conditional format: A format, such as cell shading or font color, that Excel automatically applies to cells if a specified condition is true.), data validation (data validation: An Excel feature that you can use to define restrictions on what data can or should be entered in a cell, and to display messages that prompt users for correct entries and notify users about incorrect entries.), charts, pictures, objects including drawing objects, hyperlinks (hyperlink: Colored and underlined text or a graphic that you click to go to a file, a location in a file, a Web page on the World Wide Web, or a Web page on an intranet. Hyperlinks can also go to newsgroups and to Gopher, Telnet, and FTP sites.), scenarios, outlines (outline: Worksheet data in which rows or columns of detail data are grouped so that you can create summary reports. The outline can summarize either an entire worksheet or a selected portion of it.), subtotals, data tables (data table: A range of cells that shows the results of substituting different values in one or more formulas. There are two types of data tables: one-input tables and two-input tables.), PivotTable reports (PivotTable report: An interactive, crosstabulated Excel report that summarizes and analyzes data, such as database records, from various sources, including ones that are external to Excel.), workbook and worksheet protection, and macros. You cannot make changes to these features after you share the workbook.

So you might do the change before sharing the Workbook, hope this helps.

Daniel van den Berg | Washington, USA | "Anticipate the difficult by managing the easy"

_{Wednesday, July 20, 2011 5:50 PM | 1 vote}

Did you locked/ protect your Charts and are they embedded?

If so, you can unprotect them by using this statement, for example:

ActiveSheet.ChartObjects("Chart 1").Chart.ProtectSelection = False

Daniel van den Berg | Washington, USA | "Anticipate the difficult by managing the easy"

_{Wednesday, July 20, 2011 6:44 PM}

Thanks - works great!

Had tried XlNoRestrictions before - did not work

_{Wednesday, July 20, 2011 7:04 PM}

Sorry - still have problems!

The macro executes fine but the actual printed output is the whole worksheet(shrunk to fit 1 page) not the 5 graphs I was looking for.