Memo/2004-07-13 のバックアップソース(No.16)

#contents

*Visio 関連情報 [#b577c911]
**サンプルコード [#xdcb7a07]
***図形（四角形）を生成するサンプル（その１） [#qa949522]
-文字列の配列の情報を使って四角形を作成するサンプルです。
 Sub AddShape()
     Dim shpObj
     Dim n
     
     ' テストデータ
     n = 5
     Dim strArray()
     ReDim strArray(n - 1)
     strArray(0) = "Message1"
     strArray(1) = "Message2"
     strArray(2) = "Message3"
     strArray(3) = "Message4"
     strArray(4) = "Message5"
     
     Dim i
     For i = 0 To n - 1
         ' DrawRectangle により四角形を描画します
         ' パラメータは x1, y1, x2, y2 （単位：インチ）
         Set shpObj = ActivePage.DrawRectangle(0, i, 1, i + 1)
         ' シェイプオブジェクトに文字列を設定
         shpObj.Text = strArray(i)
     Next
 End Sub

***図形（四角形）を生成するサンプル（その２） [#dcc6c242]
-Visio VBA で Excel のデータを使って図形（四角形）を生成するサンプルです。

-実行手順
--1. [ファイル] - [新規作成] - [新しい図面] を選択
--2. [ツール] - [マクロ] - [Visual Basic エディタ] を選択
--3. [挿入] - [標準モジュール] を選択
--4. 後述のコードを貼り付けます、
--5. AddShapeFromExcel() を実行するとデータ件数分、図形が作成されます。

-設定内容
--strFileName には、テストデータ（*.xls）のパスを記述してください。
--strSheetName には、対象となるシート名を記述してください。
--シートの１行目は項目行として取り扱いますので、先頭行（A1）は "Field1" と入力してください。

-サンプルコード
 Sub AddShapeFromExcel()
     Dim strFileName
     Dim strSheetName
     strFileName = "D:\home\edu\hatena\visio_vba\test.xls" ' テストデータ
     strSheetName = "SampleSheet" ' シート名
     
     ' ADO を利用して Excel ファイルをオープンする
     Dim cn
     Set cn = CreateObject("ADODB.Connection")
     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFileName & ";Extended Properties=Excel 8.0"
     
     ' ADO を利用して Excel のシートのデータをレコードセットにセットする
     Dim rs
     Set rs = cn.Execute("SELECT * FROM [Excel 8.0;database=" & strFileName & "].[" & strSheetName & "$]")
     
     Dim shpObj
     ' レコード件数分ループする
     While Not rs.BOF And Not rs.EOF
         ' 四角形を作成する
         Set shpObj = ActivePage.DrawRectangle(0, 0, 1, 1)
         ' 四角形にテキストデータを挿入する
         shpObj.Text = rs(0)
         '次のレコードに移動する
         rs.MoveNext
     Wend
 End Sub

-テストデータ（test.xls）
#ref(ExcelTestData_20040713.jpg);

-実行結果（このサンプルでは同じ場所に図形が作成されます）
#ref(VisioAddShape01_20040713.jpg);
-実行結果（移動するとこのように図形が貼り付けられていることがわかります）
#ref(VisioAddShape02_20040713.jpg);

-はてな
--http://www.hatena.ne.jp/1089682909
- 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:30:50};
- http://www.louisvuittonbag.us.com  http://www.uggbootscheap.in.net  http://www.fitflop.in.net  http://michaelkors.outletstoreonline.us.com  http://www.thenorthfacejacket.us.com  http://www.oakleysunglasses-wholesale.us.com  http://www.pradashoes.us  http://www.coachoutletonline.in.net  http://www.thenorthfaceclearances.us.com  http://www.longchampoutlet.name  http://www.michaelkorsoutlets.org.uk  http://www.michaelkorswallet.net  http://www.barbour.us.com  http://www.toryburch.in.net  http://www.linksoflondons.co.uk  http://www.barbourjacketsuk.co.uk  http://www.borselouisvuittonoutlet.it  http://www.rolexwatches.in.net  http://www.parajumpers.in.net  http://www.cheap-nfljersey.us.com  http://www.rosherunshoessale.com  http://www.pandora.eu.com  http://www.designerhandbags.us.com  http://www.basketballshoes.us.com  http://www.truereligionjeansoutlet.com  http://www.outletuggs.in.net  http://www.pradaoutlet.us  http://www.poloralphlaurenoutlet.it  http://www.michaelkorsfactoryoutlets.in.net  http://www.winterjackets.us.com  http://www.michaelkorsoutletonlinestores.us.com  http://www.ralphlauren-outletonline.co.uk  http://www.lebronjames.us.com  http://www.cheap-jordanshoes.us.com  http://www.michaelkorsoutletclearance.us.com  http://www.oakleysunglasseswholesale.in.net  http://www.uggsonsale.in.net  http://www.uggoutletstore.in.net  http://www.truereligionjeanscanada.com  http://www.cheapsoccerjersey.net  http://www.toryburchshoesoutlet.com  http://www.mulberryoutlet.com.co  http://www.airforce1.us.com  http://www.snowboots.us.com  http://www.truereligionjeansoutlets.us.com  http://www.raybansunglassesonline.us.com  http://www.michaelkorsfactoryoutlet.us.org  http://www.coach-outlet-store.us.com  http://www.mcm.in.net  http://www.iphonecases.us.com  http://www.uggaustralia.in.net  http://www.swarovskicrystal.us.com  http://www.uggoutlet.in.net  http://www.coachoutletstoreonline.in.net  http://www.uggoutletuk.in.net  http://www.michaelkorshandbags.in.net  http://www.replicahandbag.us.com  http://www.michaelkorsoutletcanada.in.net  http://www.michaelkorssale.in.net  http://www.tomsoutlet-stores.com  http://www.poloralphlaurenshirts.us.com  http://www.michaelkorshandbagsclearances.us.com  http://www.occhiali-rayban.it  http://www.juicycoutureoutlet.net  http://www.coachoutletonline-store.us.com  http://www.northface-outlet.cc  http://www.lebronjamesshoes.in.net  http://www.coachoutletstore.com.co  http://www.uggboots-outlet.co.uk  http://www.rolexwatches-uk.co.uk  http://www.michaelkorsonlinesale.us.com  http://www.nikeairmaxshoess.co.uk  http://www.canadagoose-coats.us.com  http://www.michaelkorsclearance.in.net  http://www.borseguccioutlet.it  http://www.soccerjerseys.us.com  http://www.uggboot.com.co  http://www.oakley.in.net  http://www.hermesoutletstore.us.com  http://www.canadagoosecanada.com  http://www.nike-airhuarache.co.uk  http://www.raybansunglass.com.au  http://www.raybansunglasses-outlet.us.com  http://www.michaelkorsusa.us  http://www.karenmillendressesoutlets.co.uk  http://www.toms.us.com  http://www.ralphlaurenoutlet.in.net  http://www.timberlandboots.name  http://www.christianlouboutinonline.us.com  http://www.michaelkorswholesale.us.com  http://www.canadagoose.us.org  http://www.tiffanyandco.in.net  http://www.swarovski.in.net  http://www.cheapnfljerseys.org  http://www.truereligionoutletstore.us.com  http://www.lululemonoutletstore.in.net  http://www.cheapjordanshoes.in.net  http://www.moncler.us.com  http://www.nbajerseys.net  http://www.airmax2015.in.net  http://www.moncleroutletstore.us.com  http://www.cheapfootballshirt.org.uk  http://www.blackfriday2015.in.net  http://www.michaelkorshandbag.co.uk  http://www.truereligionjean.in.net  http://www.air-jordanshoes.us.com  http://www.michaelkorsbags.uk  http://www.cybermonday2015.us.com  http://www.toryburchoutletonline.in.net  http://www.canadagoosejackets.in.net  http://www.oakleysunglasses-outlet.us.com  http://www.hermesbelts.us  http://www.oakleysunglasseswholesale.us.com  http://www.hermesbags.co.uk  http://www.louisvuitton.in.net  http://www.michaelkorshandbagsoutletstore.us.com  http://www.beats-headphones.in.net  http://www.uggbootsclearance.in.net  http://www.lacostepoloshirts.cc  http://michaelkors.outletonlinestores.us.com  http://www.discountuggboots.in.net  http://www.cheapuggsboots.in.net  http://www.chanelhandbagsoutlet.in.net  http://www.coachoutletstores.com.co  http://www.michaelkorsoutlet-store.us.com  http://www.adidaswings.in.net  http://www.wellensteyn.com.co  http://www.oakleysunglassescanada.com  http://www.pandorajewelryoutlet.us.com  http://www.wintercoats.us.com  http://www.longchamphandbag.us.com  http://mulberryoutlet.outlet-store.co.uk  http://www.oakleysunglassesdiscount.us.com  http://www.rayban-sunglassess.us.com  http://www.montblanc-pens.com.co  http://www.cheap-snapbacks.us.com  http://www.louisvuittonhandbag.us  http://www.nhljerseyswholesale.us.com  http://www.thenorthfaces.org.uk  http://www.nfljerseys-wholesale.us.com  http://www.uggoutletstore.eu.com  http://www.canadagooseoutlet.com.co  http://www.occhialioakleyoutlets.it  http://www.chanelhandbags-outlet.us.com  http://michaelkors.outletonlinestores.us.com  http://www.cheapuggsoutlet.in.net  http://www.nikeairhuarache.org.uk  http://www.uggsoutlet.us.org  http://www.thomassabos.co.uk  http://www.mbtshoesoutlet.us.com  http://www.calvinklein.in.net  http://www.adidasoutletstore.us.com  http://www.oakleyoutlet.in.net  http://www.michaelkors-outlets.us.com  http://www.chaneloutletstore.us.com  http://www.blackfridaydeals.us.com  http://www.uggs-clearance.in.net  http://www.cheapuggboots.net.co  http://www.jordan-shoes.us.com  http://www.canada-goosejackets.us.com  http://www.christianlouboutinoutlet.me.uk  http://www.cheapmlbjerseys.net  http://www.uggsale.in.net  http://www.swarovski-outlet.co.uk  http://www.hermesbirkin.org  http://www.michaelkorsoutletusa.net  http://www.cheapugg-boots.in.net  http://www.uggboots.org.uk  http://www.woolrichoutletstore.us.com  http://www.louisvuittonus.us.com  http://www.louisvuittonoutlet.in.net  http://www.raybansunglassesonline.in.net  http://www.replicawatchesforsale.us.com  http://www.cheapmichaelkorshandbag.in.net  http://www.nbajerseyswholesale.us.com  http://www.coachoutletcanada.com.co  http://www.beatsbydrdre-headphones.us.com  http://www.ghdhairstraightenerssale.co.uk  http://www.michaelkorsoutlet.org.uk  http://www.pradahandbagsoutlet.co.uk  http://www.cybermondaydeals.in.net  http://www.coachoutletus.us  http://www.swarovskicrystal.me.uk  http://www.kobeshoes.us  http://www.outletlululemon.us.com  http://www.michaelkorsoutletonline.in.net  http://www.michaelkorsfactory-outlet.us.com  http://www.futbol-baratas.com  http://www.uggbootsonsale.in.net  http://www.raybansunglass.us.com  http://www.wholesaleoakleysunglasses.us.com  http://www.louisvuittonoutletstore.name  http://www.thenorthfaceoutletstores.org  http://www.canada-gooseoutlet.us.com  http://www.herveleger.us.com  http://www.monclerjacketsuk.co.uk  http://www.tiffanyjewelleryoutlets.co.uk  http://www.ray-bansunglasses.eu.com  http://www.louisvuittonhandbagsoutlet.co.uk  http://www.coachhandbagsoutletonline.us.com  http://www.kobebryantshoes.in.net  http://www.ralphlaurenoutletuk.org.uk  http://www.poloralphlauren.us.org  http://www.michaelkorshandbagsale.us.com  http://www.thenorthface.in.net  http://www.belstaff.us.com  http://www.discountmichaelkorshandbags.in.net  http://www.jordanshoes.us.com  http://www.asicsisrael.com  http://www.weddingdressesoutlet.co.uk  http://www.thenorthfaces.in.net  http://www.ray-bansunglassess.in.net  http://www.louisvuittonhandbags.org.uk  http://www.michaelkorsoutletonlinstore.us.com  http://www.michaelkorsfactoryoutletonline.com  http://www.scarpelouboutin.it  http://www.cheapmlbjerseys.us.com  http://www.cheapoakleysunglassess.us.com  http://www.tiffany-outlet.us.com  http://www.nobis.us.com  -- [[20151124caihuali]] &new{2015-11-24 (火) 11:01:38};
-  http://www.cheapviagraonlinenet.com/ viagra online http://www.viagraonlinepharmacynet.com/ Buy viagra online http://www.viagraonlinecanadapharmacyweb.com/ viagra for sale http://www.wwwonlinepharmacyusa.com/ cialis http://www.viagraonlinefl.com/ Viagra online http://www.sildenafilonlinepharmacyusa.com/ buy viagra online canada http://www.viagrausaonline.net/ viagra for sale http://www.onlinepharmacywww.net/buy-viagra-usa.html buy viagra uk  -- [[viagra samples]] &new{2016-03-07 (月) 14:13:39};
-  http://www.cheapviagraonlinecanada.com/ discount viagra http://www.cheapviagracanadaonline.com/ cheap viagra online canada http://www.genericviagraonlinecanada.net/ generic viagra online http://www.genericviagraonlinecw.com/ generic viagra canada price http://www.viagravstadalafil.com/ viagra vs cialis comparison http://www.viagraonlinepharmacyweb.com/ viagra price http://www.genericsildenafilusa.net/ Viagra http://www.genericviagraforsaleusa.com/ generic viagra online pharmacy  -- [[cheap viagra online canada]] &new{2016-06-30 (木) 18:30:53};
-  http://www.viagragenericonlineusa.com/ generic viagra canada price http://www.onlinepharmacywww.net/buy-levitra-usa.html cheap levitra online pharmacy http://www.genericsildenafilcitrateusa.com/ generic viagra online http://www.wwwgenericsildenafilonline.com/ Buy generic viagra http://www.genericsildenafilonlinewww.com/ buy generic viagra http://www.viagraonlinecanadacheap.com/ Viagra online http://www.viagrawithoutadoctorprescriptionus.com/ order viagra from canada pharmacy  -- [[generic levitra online pharmacy]] &new{2016-08-05 (金) 18:59:51};
-  http://www.genericviagraonlineus.net/ quality viagra generic online http://www.wwwgenericviagraonlineusa.com/ generic viagra canada http://www.viagraonlinecanadapharmacyweb.com/ viagra online canada http://www.wwwonlinepharmacyusa.com/ Cialis online canada http://www.sildenafilonlinepharmacyusa.com/ viagra online canada pharmacy http://www.viagraonlinefl.com/ Cheap viagra online http://www.viagrausaonline.net/ viagra online http://www.viagraonlinepharmacyca.com/ buy viagra online  -- [[viagra]] &new{2016-08-15 (月) 06:12:43};
- oyrQeY  <a href="http://unnqddwuuesd.com/">unnqddwuuesd</a>, [url=http://pfiisuwlqxvr.com/]pfiisuwlqxvr[/url], [link=http://havtqqyvazxc.com/]havtqqyvazxc[/link], http://fknevjochxns.com/ -- [[zrjjpwigybp]] &new{2016-09-04 (日) 20:26:29};
- Crf3jr  <a href="http://fseejwplqooj.com/">fseejwplqooj</a>, [url=http://rpwuqboipers.com/]rpwuqboipers[/url], [link=http://hjxujyiozuug.com/]hjxujyiozuug[/link], http://jbnpymomxwfy.com/ -- [[kmrfohudgg]] &new{2016-09-05 (月) 07:44:41};
- 4a2aC3  <a href="http://sqhtbdpnzlop.com/">sqhtbdpnzlop</a>, [url=http://piwznpbgwuol.com/]piwznpbgwuol[/url], [link=http://tlfuzffckghf.com/]tlfuzffckghf[/link], http://ljeqqelxejtd.com/ -- [[lbhtfojcq]] &new{2016-09-05 (月) 21:30:23};
- uYcuFN  <a href="http://gzyorbujvbnd.com/">gzyorbujvbnd</a>, [url=http://myayhptypxzt.com/]myayhptypxzt[/url], [link=http://nnaznpngeccx.com/]nnaznpngeccx[/link], http://ifserflmesno.com/ -- [[rlflhacs]] &new{2016-09-06 (火) 02:03:37};
- KVZr4F  <a href="http://euwyqvkhfstr.com/">euwyqvkhfstr</a>, [url=http://rnmrjoblrvak.com/]rnmrjoblrvak[/url], [link=http://xvvlehaljojv.com/]xvvlehaljojv[/link], http://gndbzihcijri.com/ -- [[epmsjyd]] &new{2016-09-06 (火) 19:22:47};
- PkbawE  <a href="http://atnflsecfams.com/">atnflsecfams</a>, [url=http://jgrbmbnhernk.com/]jgrbmbnhernk[/url], [link=http://fhzyjpnwwvwe.com/]fhzyjpnwwvwe[/link], http://jyxipneduzbc.com/ -- [[ipmphhnfoi]] &new{2016-09-06 (火) 23:58:12};
- DILAs9  <a href="http://ahbkeslhkcca.com/">ahbkeslhkcca</a>, [url=http://aptsqvohkwkd.com/]aptsqvohkwkd[/url], [link=http://fmkplbeztxsm.com/]fmkplbeztxsm[/link], http://ipzruzgozdkz.com/ -- [[xpenrhs]] &new{2016-09-26 (月) 00:08:44};
- ATcLpv  <a href="http://litfkgcsdubg.com/">litfkgcsdubg</a>, [url=http://oxlkvdmppwae.com/]oxlkvdmppwae[/url], [link=http://kqhmuonfqsur.com/]kqhmuonfqsur[/link], http://gopljkahvjgb.com/ -- [[ofemmr]] &new{2016-09-27 (火) 00:25:06};
- uHZ8bf  <a href="http://zaufciicghsh.com/">zaufciicghsh</a>, [url=http://ivyulrvkyguk.com/]ivyulrvkyguk[/url], [link=http://upzbkbwmlfeh.com/]upzbkbwmlfeh[/link], http://gthchtjipmcc.com/ -- [[gerffywzos]] &new{2016-09-27 (火) 04:37:11};

#comment