| |
▼アーサー さん：
こんばんは。
>
>もうひとつ教えてください。直線の太さを０．５ｐｔにしたい場合はどうすればいいのでしょうか？
>上記の直線を引きたいシートのシートモジュールに
>
>'==============================================================
>Option Explicit
>Private f_rng As Range
>'======================================================================
>Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
> Dim l_rng As Range
> If Target.Count <> 1 Then
> MsgBox "単一セルに限ります"
> Exit Sub
> End If
> If f_rng Is Nothing Then
> Set f_rng = Target
> Application.StatusBar = "直線の終点を右クリックしてください"
> Else
> If f_rng.Left > Target.Left Then
> Set l_rng = f_rng
> Set f_rng = Target
> Else
> Set l_rng = Target
> End If
With Me.Lines.Add(f_rng.Left + f_rng.Width, f_rng.Top, _
l_rng.Left, l_rng.Top)
.ShapeRange.Line.Weight = 0.5
End With
> Set f_rng = Nothing
> Application.StatusBar = False
> End If
> Cancel = True
>End Sub
上記のように変更してください。
非表示オブジェクトを使ってラインを引いたので
分かりずらかったかも知れませんが、
この直線の太さの変更などはマクロの記録を使えば、おおよそのコードは
生成してくれますから、次回からはこれを試してからの質問にしてください。
|
|
ichinose
- 07/7/6(金) 19:05 -
