SHARE
TWEET

Untitled

a guest Jun 27th, 2019 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Worksheet_Calculate()
  2.     Dim Nope As Integer
  3.     ActiveSheet.ChartObjects("Chart 3").Activate
  4.     ActiveChart.FullSeriesCollection(1).ChartType = xlColumnStacked
  5.     ActiveChart.FullSeriesCollection("Limit").ChartType = xlLine
  6.     ActiveChart.Deselect
  7. End Sub
  8.      
  9. Private Sub Worksheet_Calculate()
  10.     ActiveSheet.ChartObjects("Chart 3").Activate
  11.     ActiveChart.FullSeriesCollection(1).ChartType = xlColumnStacked
  12.  
  13.     If ActiveChart.FullSeriesCollection("Limit") Is Nothing Then "do nothing here"
  14.     Else ActiveChart.FullSeriesCollection("Limit").ChartType = xlLine
  15.     End If    
  16.  
  17.     ActiveChart.Deselect
  18. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top