Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12906 / 76734

←次へ　｜　前へ→


	【69341】Re:波線の作成

ｍｏｍｏ - 11/6/28(火) 14:24 -


	引用なし

	パスワード

▼kanisan さん：

>（Mougにも同じ質問をしていますが、どなたからも回答がいただけていないため、> こちらにも投稿させていただきました。）

こちらはマルチポスト容認ですが、Mougは許可されていないので
こちらで質問されるなら、向こうは解決済みにされたほうがよろしいかと。

で、2007では以下のようにする事で波線が描けました。
最初にConvertしないでAddNodesで追加してから最後にConvertです。

Sub Namisen(Xtop, Ytop, Xbotm, Ybotm, myColor)
Dim W As Double, H As Double, Px As Double
Dim Pol As Integer, P As Integer
Dim i As Long
W = Xbotm - Xtop '幅
H = Ybotm - Ytop '高さ
Pol = H / Abs(H) '極性（戻り線の場合にマイナスとなる。）
P = 4 '波線のピッチ
Px = P * 0.6
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, Xtop, Ytop)
　For i = Pol To H / P Step Pol
　　If i Mod 2 = 0 Then
　　　.AddNodes msoSegmentCurve, msoEditingAuto, Xtop + (i * W * P / H) - Px, Ytop + P * i
　　Else
　　　.AddNodes msoSegmentCurve, msoEditingAuto, Xtop + (i * W * P / H) + Px, Ytop + P * i
　　End If
　Next i
　.AddNodes msoSegmentCurve, msoEditingAuto, Xbotm, Ybotm
　.ConvertToShape.Line.ForeColor.SchemeColor = myColor
End With
End Sub

3 hits

▼

【69336】波線の作成 kanisan 11/6/27(月) 15:23