API tools faq
paste
Advertisement
Bingdom

Untitled

Bingdom
Mar 20th, 2025
1,296
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 1.36 KB | None | 0 0
raw download clone embed print report
  1. Sub CryoDry_CD8_Create_Combo_Graph()
  2. '
  3. ' Creates a combo graph from CD8 logs
  4. '
  5.    Range("B5").Select
  6.     Range(Selection, Selection.End(xlToRight)).Select
  7.     Range(Selection, Selection.End(xlDown)).Select
  8.    
  9.     ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
  10.     ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
  11.     ActiveChart.FullSeriesCollection(1).AxisGroup = 1
  12.     ActiveChart.FullSeriesCollection(2).ChartType = xlColumnClustered
  13.     ActiveChart.FullSeriesCollection(2).AxisGroup = 1
  14.     ActiveChart.FullSeriesCollection(3).ChartType = xlColumnClustered
  15.     ActiveChart.FullSeriesCollection(3).AxisGroup = 1
  16.     ActiveChart.FullSeriesCollection(4).ChartType = xlLine
  17.     ActiveChart.FullSeriesCollection(4).AxisGroup = 1
  18.     ActiveChart.FullSeriesCollection(5).ChartType = xlLine
  19.     ActiveChart.FullSeriesCollection(5).AxisGroup = 1
  20.     ActiveChart.FullSeriesCollection(1).ChartType = xlLine
  21.     ActiveChart.FullSeriesCollection(2).ChartType = xlLine
  22.     ActiveChart.FullSeriesCollection(3).ChartType = xlLine
  23.     ActiveChart.FullSeriesCollection(5).AxisGroup = 2
  24.     ActiveChart.FullSeriesCollection(4).AxisGroup = 2
  25.     ActiveChart.Axes(xlValue, xlSecondary).Select
  26.     ActiveChart.Axes(xlValue, xlSecondary).ScaleType = xlLogarithmic
  27.     ActiveChart.Axes(xlCategory).Select
  28.     Selection.TickLabelPosition = xlLow
  29. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!