Newbie Question - 3D MAP Bloat

[GEEPEEONE]

Hello,

I've inserted 3D Maps in Excel 365, but then decided it didn't really help in anything other than balloon the file size. I've deleted the virtual tour but I couldn't get the file size back to what it was before doing the insert 3d Map?

Does anyone know how I can undo the extra 2 MB added?


Thank you thank you,

 

[Logit]

Try the following on a COPY of your workbook :

Sub LipoSuction()
'JBeaucaire (8/3/2009)
Dim LR As Long, LC As Long
Dim ws As Worksheet

For Each ws In Worksheets
    LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row + 1
    LC = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column + 1

    'Clear everything below column A last cell and row 1 last cell
        ws.Range(ws.Cells(1, LC), ws.Cells(ws.Rows.Count, ws.Columns.Count)).Delete
        ws.Range(ws.Cells(LR, 1), ws.Cells(ws.Rows.Count, ws.Columns.Count)).Delete
Next ws

End Sub

 

[GEEPEEONE]

I have done this manually. Deleted all rows to the very last after the last used row with (Ctrl+Shift+Down Arrow) as well as deleted all columns after last used with (Ctrl+Shift+Down Arrow) . The problem is that even if you take a blank excel sheet then proceed to Insert --> 3D Map --> Open 3D Maps, add a map, then delete the map after, the file size does the revert back as before. The added to 2MB stays

 

[Logit]

It was worth a try at least.