Charts lose formatting when reopened

**brianbredeway** · 03-22-2010, 05:31 PM

I have a file with many charts that are all the same format but pulling different information. I have organized so that 6 charts print on one page. My problem is that whenever I reopen the file, the charts tend to lose their formatting that existed when I previously saved and exited. For example, I added a text box to each one to act like a legend. In most charts, this tex box disappears. Also, the plot areas all get "scrunted" because the X-axis moves to the center of the chart area instead of staying near the bottom.

Any ideas why this happens? I prefer not to have to reformat these each time I open the file.

Thanks

**nchavan** · 03-29-2010, 06:46 AM

Hi brianbredeway,

You can add this small module in the workbook_beforeclose event:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ProtectChartFormats
End Sub

Public Sub ProtectChartFormats()
    Dim i As Integer, j As Integer
    With ThisWorkbook
        For j = 1 To .Sheets.Count
            For i = 1 To .Sheets(j).ChartObjects.Count
                .Sheets(j).ChartObjects(i).ProtectFormatting = True
            Next
        Next
    End With
End Sub

Note: Please modify the code as per your requirement

Thread: Charts lose formatting when reopened

Thread Tools

Display

Charts lose formatting when reopened

Re: Charts lose formatting when reopened

Thread Information

Users Browsing this Thread

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions