Help for this page

Select Code to Download


  1. or download this
    my $range = "A1:C49";
my $sheet = $workbook -> Worksheets("Graph");
...
$chart -> Activate();
# $chart -> SeriesCollection(1)->Select();
$chart->SetSourceData({Source => $sheet, Range => $range, PlotBy => xl
+Columns});
  2. or download this
    Sub Macro1()
'
...
    ActiveChart.SetSourceData Source:=Sheets("Data").Range("A1:C49"), 
+PlotBy:= _
        xlColumns
End Sub