Hiding excel when controlling charts in word

rob81

New Member
Joined
Jan 18, 2011
Messages
1
Hi,

I'm creating a dynamic graph (embeded excel workbook - Chartdata) in word where the user changes values in textboxes, these help to plot a graph.

3 questions

1. I can't keep the excel sheet hidden when I replot the graph.

I've tried

salesChart.ChartData.Workbook.Application.visible = false

with no sucess.

2. How can I add in screenupdating = false to the word doc?
Have tried application.screenupdating and document.screenupdating with no success.


3. You will notice that the graph is deleted and re created each time.
How and I amend the existing chartdata sheet?

thanks in advance for any help,

Rob


Code:
Sub delete()

Selection.GoTo what:=wdGoToTable, which:=wdGoToFirst, Count:=1, Name:=""

InlineShapes(11).delete

    D = Drug_costs.Value

    H = Hospital_costs.Value

    V = Vehicle_cost.Value

    Dim oneSeries As Boolean
    oneSeries = True

    
    Dim salesChart As Chart
    Dim chartWorkSheet As Excel.Worksheet
    
    ' Add in a new chart
    Set salesChart = ActiveDocument.InlineShapes.AddChart.Chart

    salesChart.ChartType = xlXYScatterLinesNoMarkers
        
    Set chartWorkSheet = salesChart.ChartData.Workbook.Worksheets(1)
    
    ' Resize the chart area
    chartWorkSheet.ListObjects("Table1").Resize     
chartWorkSheet.Range("A1:B152")
    
    
    ' Add data to the chart
    
    For i = 0 To 151
    
    chartWorkSheet.Cells(i + 2, 1) = i

    chartWorkSheet.Cells(i + 2, 2) = (H * i) - (D * i) - V

    Next i
    
    
    ' Quit Excel, since we no longer need it
    salesChart.ChartData.Workbook.Application.Quit

End Sub
 

Excel Facts

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,598
Messages
5,832,646
Members
430,150
Latest member
amitk1

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top