Excel VBA質問箱 IV

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

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


42411 / 76732 ←次へ | 前へ→

【39390】Re:線のトリムって出来ないでしょうか?
発言  ichinose  - 06/6/23(金) 10:05 -

引用なし
パスワード
   ▼カド さん:
おはようございます。


>2本の線が交わるように描画すると、”X”こんな形になりますが、
>これをトリムすると”<”、”>”こんな感じになります。
こんな図形が作成可能なら他の方法でもと言うのなら、

線をつなげてグループ化すると同じような図形が作成できますよね?
新規ブックの標準モジュールに
'==============================================================
Sub test()
  Dim rad As Double
  rad = WorksheetFunction.pi() / 4
  Call mk_hutougou([b5].Left, [b5].Top, 20, rad, , False)
  Call mk_hutougou([b5].Left, [b5].Top, 20, rad, , True)
End Sub

'=====================================================================

Function mk_hutougou(ByVal stx As Double, ByVal sty As Double, rs As Double, rad As Double, Optional sht As Worksheet = Nothing, Optional opn As Boolean = False) As Shape
  '不等号を作成する
  ' input stx 不等号始点となるLeft
  '    sty 不等号始点となるtop
  '    rs 半径距離
  '    rad 角度 Radian
  '    sht 作成するシート
  '    opn false 右開き true 左開き
  Dim pi As Double
  Dim l1 As Line
  Dim l2 As Line
  Dim crad As Double
  Dim srad As Double
  pi = WorksheetFunction.pi()
  srad = rad / 2
  crad = rad / 2
  If opn = True Then crad = crad + pi
  If sht Is Nothing Then Set sht = ActiveSheet
  Set l1 = sht.Lines.Add(stx, sty, stx + rs * Cos(-crad), sty + rs * Sin(-srad))
  Set l2 = sht.Lines.Add(stx, sty, stx + rs * Cos(-crad), sty + rs * Sin(srad))
  Set mk_hutougou = sht.Shapes.Range(Array(l1.Name, l2.Name)).Group
End Function

でサンプルを作成してみてください。


セルB5の左上を始点に45度の角度で右・左開きで作成しています。

トリミングでも上記を応用すれば出来るかもしれませんが・・・。

試してみてください。
2 hits

【39378】線のトリムって出来ないでしょうか? カド 06/6/23(金) 8:24 質問
【39390】Re:線のトリムって出来ないでしょうか? ichinose 06/6/23(金) 10:05 発言
【39397】Re:線のトリムって出来ないでしょうか?... ichinose 06/6/23(金) 11:34 発言
【39400】Re:線のトリムって出来ないでしょうか?... ichinose 06/6/23(金) 12:38 発言
【40754】Re:線のトリムって出来ないでしょうか?... カド 06/7/22(土) 18:42 お礼
【40767】Re:線のトリムって出来ないでしょうか?... ichinose 06/7/23(日) 14:53 発言
【40821】Re:線のトリムって出来ないでしょうか?... カド 06/7/24(月) 19:21 お礼
【40832】Re:線のトリムって出来ないでしょうか?... ichinose 06/7/24(月) 22:44 発言
【40954】Re:線のトリムって出来ないでしょうか?... わいわい 06/7/26(水) 19:03 発言
【40968】Re:線のトリムって出来ないでしょうか?... わいわい 06/7/27(木) 9:12 発言

42411 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free