![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
' オートシェイプを使って線を描画するサンプル
' ＜テストデータ＞
' 番号, 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
http://sassygirlbooks.com/generic-viagra-manila.pdf#carter viagra tablet men Place the butter between 2 sheets of greaseproof or baking paper, and bash it with a rolling pin to soften it while it is still cold. This will help keep the biscuit dough cool and makes it easy to work. Cream the butter with the lemon and sugar until pale and light coloured – the mixture will still contain visible sugar crystals, though they will melt a little. Work in the flour and semolina, and knead lightly to make a dough. Wrap in cling film and refrigerate for 1 hour. http://gameaccessibilityguidelines.com/zoloft-250-mg-daily.pdf#limitation zoloft price canada As part of its new upscale appeal, the wedge-like blocks of frozen dough will get two new types of crust â?? as well as savory innards made from upscale sandwich meats like slow-cooked Angus beef, the company said. http://studiolxv.com/index.php/fembido-food-supplement.pdf#excellent fembido reviews After months of digging, congressional staffers have not produced evidence linking Obama and the White House to low-level IRS employees first involved in flagging the tax-exemption applications of conservative groups for closer review. http://sb-studio.co.uk/precio-en-farmacias-de-cialis-20-mg.pdf venta de cialis en mexico por internet According to website Gawker, Robertson said to co-host Terry Meeuwsen on Tuesday's "700 Club" "You know what they do in San Francisco, some in the gay community there, they want to get people so if they got (AIDS) they'll have a ring, you shake hands, and the ring's got a little thing where you cut your finger. Really. It's that kind of vicious stuff, which would be the equivalent of murder." http://www.saipc.org/tamoxifen-cancer-care-ontario.pdf where can i buy nolvadex pct uk The research suggests the amount of one of the 22 metabolites found could indicate faster ageing in adult life, and scientists believe it may be possible identify this with a blood test in the future. -- Claude? 2017-04-04 (火) 00:49:45 http://www.m-ark.fi/voltaren-forte-gel-prezzo.pdf#impenetrable precio voltaren emulgel colombia Second, there are growing signs that this nascent recovery is mainly benefiting those at the top. Bank bonuses soared to almost £4bn in April as top earners deferred their payouts to take maximum advantage of Osborne's top-rate tax cut. But most families are not seeing any recovery in their living standards, with average wages after inflation still falling; in fact, family incomes are now facing the longest squeeze since the 1870s. http://www.ryanhorban.com/cost-of-trileptal-at-walmart.pdf#direction trileptal generic Hoekstra said that while she's not yet ready to call the olinguito a new species, most of the evidence is there. "The next step is to do a thorough genetic survey between olingos and olinguitos," she said. "But I'm convinced that they're onto something. Once they collect the genetic data, that seals the deal for me." http://www.hungryhuntersteakhouse.com/comprar-pastillas-yasmin-online.pdf#wrap yasminelle kosten sterreich Without knowing supply-side numbers for previous and current launch â?? comparing previous lead-times to current lead-times doesnâ??t provide any meaningful data â?? other than Appleâ??s ability to predict launch sales. If last launch Apple was supply-siding a million phones at launch and a million phones a week, and this launch they are supply-siding 2 million phones at launch and 2 million phones a week for both the 5c and the 5s, then youâ??d expect lead times to shorten â?? and not be â??unprecedentedâ??. In fact, shorter lead-times and availability-for-purchase indicate better market predictors at Apple. You donâ??t want customers frustrated by a long product delay on launch, buying a competitors model because they canâ??t get yours when they walk in the store even weeks after launch. http://thearchitectureproject.dk/esomeprazole-magnesium-trihydrate-dose.pdf#windfall prilosec cost walmart The United States has so far avoided saying whether it regards Mursi's overthrow by the army as a "coup", language that could trigger the halt of $1.5 billion in mainly military U.S. aid to the pivotal country. But Western capitals have voiced concern about Mursi's fate and the European Union has called for his release. http://www.hawaiipapaya.com/good-place-to-buy-viagra.pdf#biology viagra casero para las mujeres The PBO report did not single out individual provinces.Ontario, the most populous provinces, is one of the mostindebted. Other major economic players Quebec, Alberta andBritish Columbia have also been tackling deficits in recentyears. -- Thebest? 2017-04-04 (火) 00:52:27 http://www.wacker90.de/ciprofloxacin-tab-500-mg-side-effects.pdf ciprofloxacina y alcohol efectos There was drama on the final day of the British Championships, which double as trials for next month's World Championships, when title hopefuls Lisa Dobriskey and Laura Weighman failed to complete the women's 1500m. http://danwismar.com/archives/wizblog/index.php/valtrex-retsept.pdf#displayed valtrex prix maroc He said Alexis went to the lobby where he shot a security guard and took his weapon, a Beretta semiautomatic pistol. He resumed moving through the building, focusing mainly on the 3rd and 4th floors, Comey said. http://www.marketingfundamentals.com/how-to-take-vigaplus.pdf comprar vigaplus Boulder and a string of other towns along the Front Range of the Rockies north of Denver were especially hard hit as water poured down rain-soaked mountains and spilled through canyons that funneled the runoff into populated areas. http://www.batogtilhengerservice.no/avanafil-nome-commerciale-in-italia.pdf#alfred avanafil ukmi Sheikh Abdiasis Abu Musab, spokesman for al Shabaab'smilitary operations, told Reuters foreign forces had landed onthe beach at Barawe, about 180 km (110 miles) south ofMogadishu, and launched an assault at dawn that drew gunfirefrom rebel fighters in one of the militia's coastal bases. http://luckystudio.ro/lioresal-rezeptfrei-kaufen.pdf lioresal 5 mg preis Ten states - Texas, Oklahoma, Louisiana, South Carolina, Virginia, Delaware, Wyoming, Utah and Maine - did not participate in the CDC study because they either did not have consistent data between 2008 and 2011, or they changed their methodology, which could have affected results, the CDC said. -- Doyle? 2017-04-04 (火) 00:53:56
