![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
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 SubSub 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
https://theniceshirts.com/avapro-irbesartan-recall-iuxj avapro generic picture The yields of Brazil's interest rate futures opened higher on Thursday, meaning the market is betting onhigher rates ahead. An overwhelming majority of market tradersexpect the central bank to raise rates to 10 percent at its nextmeeting on Nov 27, according to Thomson Reuters data. -- Danny? 2021-04-26 (月) 00:04:10 https://any1coin.com/lasix-furosemide-for-cats-xmya furosemide 20 mg ampoule Gay couples may already obtain "civil partnerships", conferring the same legal rights as marriage, but campaigners say the distinction gives the impression that society considers gay relationships inferior. -- Franklin? 2021-04-26 (月) 00:09:35 I love it. SO BRIGHT!' It's not the only photo we've seen of the reality star on Twitter... -- Lucky? 2021-04-26 (月) 00:09:48 http://lordallenmusic.com/famotidine-vs-prilosec-for-dogs-cazf prilosec for dogs dosage Germany's largest steelmaker late on Tuesday reported a 362million euro net loss for its financial third quarter and saidits equity was shrinking, putting it at risk of losing a creditline and raising pressure on the company to sell new shares. -- Pitfighter? 2021-04-26 (月) 00:21:53 https://arabdawaer.com/index.php/xenical-costa-rica-tezr xenical precio mercadolibre Bynes was arrested in May after building officials called police to complain she was rolling a joint and smoking pot in the lobby. Officers went to her apartment where they say they saw heavy smoke and a bong sitting on the kitchen counter. Prosecutors say she tossed the bong out the window in front of the officers. -- Javier? 2021-04-26 (月) 01:25:43 https://arabdawaer.com/index.php/zyprexa-relprevv-indications-tezr zyprexa 10mg im Smith was progressing nicely in training camp, but he stumbled Monday, throwing two interceptions in the red zone in a 7-on-7 drill. The Jets have emphasized cutting down on mistakes in the red zone, so Ryan wasn't pleased. -- Angelo? 2021-04-26 (月) 01:27:21 https://congresodeteologia.info/minocin-torrino-medica-ympb minocin acne para que sirve The government mortgage insurer plays a key role in helpingthose with low and modest incomes obtain credit to purchase ahome. Consumer advocates maintain the support it has given tolow-income borrowers and the housing market as a whole has beenworthwhile. -- Keneth? 2021-04-26 (月) 01:53:43 http://theglobal.review/indocin-and-ibuprofen-xgxp indocin pregnancy dosage Coburn called the proposal "a rough draft" and hoped itwould be part of a solution that "will protect taxpayers andensure the Postal Service can remain economically viable whileproviding vital services for the American people." -- Silas? 2021-04-26 (月) 02:13:08 https://any1coin.com/lansoprazole-orally-disintegrating-tablets-15-mg-in-telugu-tezr lansoprazole orally disintegrating tablets 15 mg in telugu "The brain's response to sexual pictures was not predicted by any of the three questionnaire measures of hypersexuality," she said. "Brain response was only related to the measure of sexual desire. In other words, hypersexuality does not appear to explain brain responses to sexual images any more than just having a high libido." -- Wiley? 2021-04-26 (月) 02:15:34 http://magmidia.com/apcalis-sx-20-mg-tablets-polq apcalis sx 20mg w elu "Investors should take the Silver Lake-Michael Dell bid andrun for the hills," said Brian Marshall, analyst with ISI Group.He said the company may end up underperforming his earningsforecast of 26 cents per share on revenue of $14.3 billion. -- Coco888? 2021-04-26 (月) 02:24:57 https://laz.fr/buy-vpxl-baikal-pharmacycom-vjcr desyrel baikal-pharmacy.com "For clarity, I would like to point out that I have the utmost respect for gay people and for everyone's right to express themselves. I've also said â?? and would like to reiterate â?? that I respect gay marriages." -- Marcel? 2021-04-26 (月) 03:12:04 http://lamikula.fr/cialis-vs-tadalafil-generico-vjcr levitra vs viagra vs cialis alcohol Consider taking out a mobile phone contract rather than a pay-as-you-go one. Obtain, if you can, a bank overdraft facility, or retail store card. Duncan Bowker of Callcredit says “There are credit building credit cards out there that, although they have a low credit limit, will allow consumers to prove that they are capable of managing a line of credit.” -- Cyril? 2021-04-26 (月) 03:30:57 http://www.jimon-magazine.com/costo-ventolin-con-esenzione-bkqx ventolin nebules cost The U.N. experts already in Syria are tasked with investigating three earlier purported chemical attacks in the country: one in the village of Khan al-Assal outside the northern city of Aleppo in March, as well as two other locations that have been kept secret for security reasons. -- Kendall? 2021-04-26 (月) 03:49:36 https://theniceshirts.com/kamagra-100-mg-pastillas-contrareembolso-baky kamagra-1st Some analysts believe Netanyahu's earlier threats helpedlead to Iran keeping uranium enrichment below the cartoon bomb's"red-line" threshold - enough medium-enriched uranium for asingle bomb - that he suggested would trigger Israeli strikes. -- Bobber? 2021-04-26 (月) 04:09:06
