Excel VBA質問箱 IV

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

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


7671 / 13646 ツリー ←次へ | 前へ→

【37632】ご回答ありがとうございます! hanahana 06/5/13(土) 12:19 お礼[未読]
【37633】Re:ご回答ありがとうございます! HiroHiro 06/5/13(土) 12:43 発言[未読]
【37634】この方が良さそうです HiroHiro 06/5/13(土) 12:50 発言[未読]
【37637】Re:ご回答ありがとうございます! Kein 06/5/13(土) 14:13 回答[未読]

【37632】ご回答ありがとうございます!
お礼  hanahana  - 06/5/13(土) 12:19 -

引用なし
パスワード
   HiroHiroさん(笑)、ピカルさん、早速のご回答ありがとうございます!

ただ、すいません、私の質問の書き方が非常にマズかったです。
たとえば、標準モジュールにコードを書き込みことで、"A1"の左上隅から"B3"の右下隅まで直線を引くことはできるんでしょうか?
実際には、、"A1"の左上隅から"B3"の右下隅まで直線を引き、かつ"B2"の右上隅から"A3"の左下隅まで直線を引く、というような使い方を検討しています。
これってできますでしょうかね?

【37633】Re:ご回答ありがとうございます!
発言  HiroHiro  - 06/5/13(土) 12:43 -

引用なし
パスワード
   ▼hanahana さん:
  ActiveSheet.Shapes.AddLine(0#, 13.5, 108#, 40.5).Select
  ActiveSheet.Shapes.AddLine(0#, 13.5, 108#, 40.5).Select
  Selection.ShapeRange.Flip msoFlipHorizontal

72ピクセル(幅)18ピクセル(高さ)のセルでマクロの記録で作っています。

【37634】この方が良さそうです
発言  HiroHiro  - 06/5/13(土) 12:50 -

引用なし
パスワード
   ▽Hanahanaさん
HiroHiroです。こんにちは・・・
「コネクター」を使ったほうが良いです。
セル幅が変更されても、追随しますから。
ためしてみてください。


ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 0#, 13.5, 107.25, _
    27#).Select
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 0#, 13.5, 107.25, _
    27#).Select
  Selection.ShapeRange.Flip msoFlipHorizontal
  Range("A1").Select

【37637】Re:ご回答ありがとうございます!
回答  Kein  - 06/5/13(土) 14:13 -

引用なし
パスワード
   Sub Add_MyLines()
  Dim xP1 As Single, yP1 As Single
  Dim xP2 As Single, yP2 As Single
  Dim yP3 As Single, yP4 As Single
 
  If TypeName(Selection) <> "Range" Then Exit Sub
  With Selection
   If .Rows.Count <> 3 Or .Columns.Count <> 2 Then
     MsgBox "3列×2行のセル範囲を選択して下さい", 48
     Exit Sub
   End If
   xP1 = .Left: yP1 = .Top: xP2 = xP1 + .Width
   yP2 = .Range("C4").Top: yP3 = .Range("A4").Top
   yP4 = .Range("B2").Top
  End With
  With ActiveSheet.Lines
   .Add xP1, yP1, xP2, yP2
   .Add xP1, yP3, xP2, yP4
  End With
End Sub

で、どうかな ?
3列×2行のセル範囲なら、どこでもその配置形態で直線を引けます。

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