+ Reply to Thread
Results 1 to 1 of 1

macro runs slow

  1. #1
    Registered User
    Join Date
    01-04-2005
    Location
    Montreal, Canada
    Posts
    4

    Question macro runs slow

    I have macro that copies a graph from one sheet and displays it in a window on the active sheet. The macro runs so slowly (10 seconds to copy the graph) that the user could complete the actions faster manually. Is there a way to speed up the macro?
    Sub DisplayChart()

    Dim Sheetname As String
    Application.ScreenUpdating = False

    Sheetname = ActiveSheet.Name
    Sheets("TtlCrs").Select
    ActiveSheet.ChartObjects("Chart 2").Copy
    Application.ScreenUpdating = True
    Sheets(Sheetname).Select
    ActiveSheet.Paste
    ActiveSheet.ChartObjects("1").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    ActiveSheet.ChartObjects("1").Activate
    ActiveChart.ShowWindow = True
    ActiveSheet.ChartObjects("1").Delete

    End Sub
    Any help greatly appreciated
    Last edited by nanomiter; 01-11-2005 at 02:03 PM. Reason: Forgot the code

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1