エクセル 選択したセル間 赤斜線を引く

質問

エクセルシート上の複数の任意のセルを選択し，マクロボタンを押すと，その選択した左上から右したまで赤の斜線を引きたいです。

どなたかマクロの記述を教えてくださいませんか？
図々しいお願いとは十分承知の上のお願いです。

具体的には
写真を参考にしていただけるとありがたいです。

回答No.1

kagakusuki · ベストアンサー

下記の様なVBAのマクロになります。

Sub QNo9164037_エクセル_選択したセル間_赤斜線を引く()

If TypeName(Selection) = "Range" Then
With Selection
With ActiveSheet.Shapes.AddConnector(msoConnectorStraight, _
.Left, .Top, .Left + .Width, .Top + .Height).Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
End With
Else
MsgBox "現在選択されているものはセル範囲ではありません。" _
& vbCrLf & "マクロの実行を中止致しますので、" _
& "セル範囲を選択しなおしてから再度当マクロを実行してください。" _
, vbExclamation, "無効な選択"
End If

End Sub

お礼

すみません！！
助かりました！！！ありがとうございます！！！