Moving from Microsoft Office VBA to AppleScript:
MacTech's Guide to Making the Transition

Page Prev and Page Next buttons at bottom of the page.

April, 2007
Page 77

             End With

          Next i

          'Add Titles and Format Chart and Axes

          .HasTitle = True

          With .ChartTitle

             .Caption = "My XY Scatter Chart"

             .HorizontalAlignment = xlHAlignCenter

             With .Font

                .Name = "Verdana"

                .Size = 12

                .Bold = True

             End With

          End With

          With .Axes(xlCategory, xlPrimary)

             .HasTitle = True

             With .AxisTitle

                .Caption = "X Values"

                With .Font

                   .Name = "Arial"

                   .Size = 10

                   .Bold = True

                End With

             End With

          End With

          With .Axes(xlValue, xlPrimary)

             .HasTitle = True

             With .AxisTitle

                .Caption = "Y Values"

                With .Font

                   .Name = "Arial"

                   .Size = 10

                   .Bold = True

                End With

             End With

          End With

          'Format Plot area

          With .PlotArea

             With .Border

                .Color = vbBlue

                .LineWeight = 1

                .LineStyle = xlContinuous

                .Transparency = 0

             End With

             With .Fill

                .Visible = True

                .ForeColor.RGB = RGB(150, 200, 255)

                .Transparency = 0.5

             End With

          End With