|
OS:WindowsXP Office:2003
お願いします。
固定選択範囲に右上がりの線を作成&削除させるマクロをオートシェイプに登録し、問題なく動いていました。ところが同じSheet内にある、入力規則(リストから選択する)セルをアクティブにするとマクロがエラーになることを最近気づきました。
「MySp.TopLeftCell.Column =< アプリケーション定義またはオブジェクト定義のエラーです」
If MySp.TopLeftCell.Row = RR.Row And _
MySp.TopLeftCell.Column = RR.Column Then
このように表示されます。
色々と調べてみましたが全く見当がつきません。
よろしくお願いいたします。
Sub 固定範囲内斜線()
'
' Macro1 Macro
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim RR As Range, MySp As Shape, Ch As Boolean
ActiveSheet.Unprotect
Ch = True
Set RR = Range("B13:F17")
For Each MySp In ActiveSheet.Shapes
If MySp.TopLeftCell.Row = RR.Row And _ 'エラーはここです
MySp.TopLeftCell.Column = RR.Column Then 'エラーはここです
MySp.Delete
Ch = False
Exit For
End If
Next MySp
If Ch Then
With ActiveSheet.Shapes.AddLine(Range("B13").Left, Range("B13").Top, _
Range("F17").Left + Range("F17").Width, _
Range("F17").Top + Range("F17").Height)
.Flip msoFlipHorizontal
End With
End If
Set RR = Nothing
End Sub
|
|