home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 January / PCPRO_JAN96.ISO / code / winint / code5.txt < prev   
Encoding:
Text File  |  1995-11-01  |  400 b   |  9 lines
  1. Sub ExcelGraph()
  2.     ActiveSheet.ChartObjects.Add(31.5, 105.75, 328.5, 242.25).Select
  3.     Application.CutCopyMode = False
  4.     ActiveChart.ChartWizard Source:=Range("MySourceData"), Gallery:=xl3DArea, _
  5.         Format:=6, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels _ 
  6.         :=1, HasLegend:=2, Title:="A Nice Title", CategoryTitle:="", _
  7.        ValueTitle:="", ExtraTitle:=""
  8. End Sub
  9.