Memo/2004-06-21 のバックアップの現在との差分(No.2)

追加された行はこの色です。
削除された行はこの色です。
#contents
*Excel 関連情報 [#x8672b4a]
**サンプルコード [#h63ee22f]
***オートシェイプの使い方 [#q0670af9]
-オートシェイプを使って線を描画するサンプル（その１）
 ' オートシェイプを使って線を描画するサンプル
 ' ＜テストデータ＞
 ' 番号, X軸, Y軸, 経路フラグ（-1の場合、経路なし）
 ' 1,9,3,-1
 ' 2,4,7,1
 ' 3,10,8,-1
 ' 4,13,5,1
 ' 5,8,15,1
 Sub LineDrawTest()
     Const nCount = 5 ' データ件数
     Const nScale = 10 ' 倍率
     Dim n ' データの番号
     Dim x_st ' 線の開始位置（X軸）
     Dim y_st ' 線の開始位置（Y軸）
     Dim x_ed ' 線の終了位置（X軸）
     Dim y_ed ' 線の終了位置（Y軸）
     Dim i ' ループカウンタ
     Dim flag ' 経路フラグ
     
     Dim line ' オートシェイプ：線
     Dim oval ' オートシェイプ：円
     Dim text ' オートシェイプ：テキストボックス
     For i = 1 To nCount
         n = ActiveSheet.Cells(i, 1)
         x_ed = ActiveSheet.Cells(i, 2) * nScale
         y_ed = ActiveSheet.Cells(i, 3) * nScale
         flag = ActiveSheet.Cells(i, 4)
         ' flag が -1 の場合、経路が無いものとします。
         If i = 1 Or flag = -1 Then
             x_st = x_ed
             y_st = y_ed
         Else
         End If
         With ActiveSheet
             ' 線を表示（X座標、Y座標、X座標2、Y座標2）
             Set line = .Shapes.AddLine(x_st, y_st, x_ed, y_ed)
             ' 点（○）を表示（X座標、Y座標、幅、高さ）
             Set oval = .Shapes.AddShape(msoShapeOval, x_ed - 2, y_ed - 2, 5, 5)
             oval.Fill.ForeColor.SchemeColor = 10 ' 色（赤）を指定
             ' 番号を表示（X座標、Y座標、幅、高さ）
             Set text = .Shapes.AddTextbox(msoTextOrientationHorizontal, x_ed, y_ed, 15, 15)
             text.Select
             Selection.Characters.text = CStr(n)
             text.Fill.Visible = msoFalse ' 非表示に
             text.line.Visible = msoFalse ' 非表示に
         End With
 
         x_st = x_ed ' 次回開始位置を指定
         y_st = y_ed ' 次回開始位置を指定
     Next
 End Sub
-実行結果
#ref(hatena_20040621_1.jpg);

-修正版
--[[オートシェイプを使って線を描画するサンプル（その２）>Memo/2004-06-22]]

-はてな
--http://www.hatena.ne.jp/1087797083
- guoguo1030http://www.louisvuitton-lvoutlet.me http://www.louisvuitton.net.co http://www.louisvuitton.us.com  http://www.louis-vuitton.us.org http://www.jordans.in.net http://www.michaelkors-outletonline.eu.com http://www.coach-outlet-store-online.org http://www.michaelkorshandbags.name http://www.louisvuittonhandbags.net.co http://www.louisvuitton-handbags.com.co http://www.louis-vuittonoutlet.us.com http://www.jordan13.org http://www.michaelkors-mkoutlet.in.net.co http://www.cheap-tomsoutlet.us http://www.abercrombiefitchus.com http://www.coach-factoryoutlet.com.co http://www.coach-factoryoutlet.in.net http://www.uggsboots-sale.com http://www.nike-airmax.org.uk http://www.louisvuitton-outlet.name http://www.bestuggboots.com http://www.uggsbootssale.eu http://www.ralph-lauren.me.uk http://www.michael--korsoutlet.us.com http://www.uggsoutlet.in.net http://www.abercrombieandfitch.net.co http://www.michaelkorsoutletshopping.us.com http://www.toryburch-outletsale.in.net http://www.uggbootsoutlet.net.co http://www.rayban-sunglasses.com.co http://www.ugg-boots-store.com http://www.canada-gooses.name http://www.michaelkorsoutletonline.cc http://www.louisvuitton-macys.com http://www.hollisteruk.in.net http://www.coach-factoryoutlet.cc http://www.fitflops.org http://www.michaelkorsoutletvip.in.net http://www.canada-goosejackets.net http://www.louisvuittonuk.me.uk http://www.lebronjames-shoes.name http://www.niketrainers.com.co http://www.mk-michaelkorsoutletonline.com http://www.michaelkorshandbag-uk.co.uk http://www.michaelkorsoutletab.com http://www.michaelkors-outletsale.com http://timberlandboots.hugeoff.net http://www.ugg-boots.eu http://www.louisvuitton-inc.com http://www.michaelkors-outletonlines.in.net http://www.abercrombiefitchstore.com http://www.hollisters.cc http://www.coachoutlet-coachfactory.us.com http://www.michael-korshandbag.us.com http://www.michaelkors-outlet.name http://www.canada-goosejackets.biz http://www.cheapwholesaleuggboots.com http://www.women-ugg-boots.com http://www.michaelkorsoutletclearance.in.net http://www.michaelkors-outletstores.com http://www.coachoutlet-storeonline.us.com http://www.coach-outlet.us.com http://www.quality-outlet.com http://www.sunglassesrayban.us.com http://ugg.fairskinmen.com http://www.canadagooseoutlet.cc http://www.canadagoose.com.co http://www.oakleysunglasses-sale.in.net http://www.guccioutlet.com.so http://www.abercrombie-andfitch.cc http://www.sunglassesoakley.eu.com http://www.toms--shoes.com http://uggsaustralia.officialus.net http://www.sunglass-outlet.us http://www.michaelkorsoutletonline.name http://www.christianlouboutinoff.us http://www.coach-factoryoutlet.us.com http://www.coachfactoryoutletonline.eu.com http://www.canadagoosejackets.org.uk http://www.jordan6.net http://www.michaelkors-outletonline.eu http://www.ugg-boots.eu.com http://www.coach-factory-outlet-online.us.com http://www.michaelkors-outlet-handbags.com http://www.canada-gooseoutlet.net http://www.cheapuggbootsonsaleusa.com http://www.michael-korshandbags.us http://www.coachoutlet-storeonline.in.net http://www.outlet-celine.com http://www.ugg-boots.net.co http://www.cheaplouisvuittonhandbags.org http://www.michaelkorsbag.org.uk http://www.michaelkors-handbag.me.uk http://www.coachfactoryoutletus.in.net http://www.ugg-boots-australia.com http://www.louis-vuitton-outlet.us.com http://www.louis-vuittonhandbags.us http://www.cheapuggssale.in.net http://www.michaelkorsoutletforus.com http://www.michael-korshandbags.net.co http://www.cheap--nfljerseys.us.com http://www.canadagoose-outlet.us.com http://www.louis-vuitton-handbags.us.com http://www.montblanc.in.net http://www.cheapjordansshoes.in.net http://www.jordan3.net http://www.truereligion-outlet.in.net http://www.jordan4.net http://www.get-coachoutletsonline.com http://www.officialcoachfactoryoutlet.eu.com http://www.coach-factoryoutlet.eu.com http://www.ralphlaurenpolo.in.net http://www.canadagoosejackets.name http://michaelkors.aphidsymposium.org http://www.louisvuittonoutlet.name http://www.michael-korsoutlets.eu.com http://www.vipmichaelkors-outletonline.com http://www.louis--vuitton.us http://www.outlet-toms.cc http://www.hermes-birkin.us http://www.hollisteruksale.me.uk http://www.louisvuitton-outletstores.org http://www.cheap-jordans.us.com http://www.cheap-uggboots.biz http://www.uggboots-sale.in.net http://www.coachfactory-outlet.org http://www.louisvuittonoutlet.net.co http://www.jordan8.net http://www.coachcanadaoutlet.ca http://www.mont-blancpens.name http://www.christianlouboutinsell.net http://www.michaelkors-outlet.cc http://www.michael-korsuk.me.uk http://www.authenticlouisvuittonhandbags.net http://www.truereligionjeans-outlet.in.net http://www.louisvuittonhandbags.name http://www.abercrombies.cc http://uggboots.uggaustralia.de.com http://www.kobeshoes.org http://www.michael-kors-bags.co.uk http://www.canada-gooseoutlet.cc http://www.the-north-face.us.com http://www.north-face.eu.com -- [[NiMa]] &new{2015-10-30 (金) 18:27:31};

#comment