🚀 go-pugleaf

$B!!I~It!w5~BgEZLZ$H?=$7$^$9!#(B

$B!!(BMSChart$B$H$$$&(BActiveX Control$B$K4X$9$k<ALd$rJ9$$$F$d$C$F2<$5$$!#(B

$B!!(BMSChart$B$O(BWidth$B!"(BHeight$B$GI=$5$l$kBg$-$5!"$=$NCf$K$"$k(B
$B%0%i%UItJ,$NBg$-$5!"$5$i$K$=$NCf$K$"$k<4@~$ND9$5$N(B
3$B<oN`$NBg$-$5$,$"$k$h$&$G$9!#$3$l$i$N$&$A<4@~$ND9$5$,(B
$B0lHV=EMW$@$H;W$&$N$G$9$,!"$=$N@_Dj$O$I$&$9$l$PNI$$$N$G$7$g$&$+!#(B
$B<o!9%W%m%Q%F%#$d%a%=%C%I$J$I$r8+$?$D$b$j$J$N$G$9$,!"(B
$B:#0l$DJ,$+$j$^$;$s$G$7$?(B...

 $B!!$A$J$_$K!"0J2<$N%3!<%I(B(Form1$B>e$K(BMSChart1$B$,:8>e$K0l$D(B)$B$r(B
$B<B9T$9$l$P!"$I$&$J$j$^$9$+(B??$B%G!<%?$NM?$(J}$,0-$$$s$G$7$g$&$+(B...

Option Explicit

Private Sub Form_Load()
    Dim X As Integer

    With MSChart1
        .chartType = VtChChartType2dXY

        .RowCount = 100
        .ColumnCount = 2
        .RowLabelCount = 0
        .ColumnLabelCount = 0

        .Row = 1
        For X = 1 To 99
            .Column = 1: .Data = X        'X$B$N%G!<%?$N$D$b$j(B
            .Column = 2: .Data = X ^ 2   'Y$B$N%G!<%?$N$D$b$j(B

            .Row = .Row + 1
        Next X
    End With
End Sub

Private Sub Form_Resize()
    With MSChart1
        .Width = ScaleWidth
        .Height = ScaleHeight
    End With
End Sub

$B!!(BGraph$B$d(BGrid$B$,(BVB5$B$G%5%]!<%H$5$l$J$$$H%^%K%e%"%k$K=q$$$F$"$k$N$rCN$j!"(B
$BX3A3$H$7$F!"(BMSChart$B$H(BMSFlexGrid$B$,8e7Q<T$K0c$$$J$$$H;W$$!"(B
$B0\?"$r;O$a$?$N$G$9$,(B...MSFlexGrid$B$O!"(BTextMatrix$B$GGc$$$G$9!#(B
MSChart$B$OFq$7$$(B...

--
Atsushi Hattori, Research Associate, Kyoto University
Tel: 81 75 753 5102  Fax: 81 75 761 0646
e-mail: hattori@cml2.kuciv.kyoto-u.ac.jp