Exce2007でBorder クラスの LineStype プロパティを設定できません。

Question

初めて投稿させて頂きます。
似たような投稿がありましたが、過去の例とは若干違うので投稿させて頂きました。

Excel2007で罫線を引く下記の手順で処理を実行した所

実行時エラー '1004':
Border クラスの LineStyle プロパティを設定できません。

というエラーが発生してしまいます。
色々調査を行ってはみたのですが、具体的な解決策が見つかっておらず、
Excel2007のバグではないかと思って来ています・・・

解決策をご存知の方いらしゃったら、回答宜しくお願い致します。

再現手順 : 
１．新規のBookに下記のマクロを設定してファイルを保存→閉じる
２．保存したファイルを開き直してマクロの実行→保存→閉じる
３．再度２を実行
４．再度２を実行→下記マクロの※１でエラー発生!!!

マクロ : 
Private Sub Workbook_Open()
    ' １．セルA1:E11を選択して選択したセルの内部縦線を点線にする。
    Range(Cells(1, 1), Cells(11, 5)).Select
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous               '※１
        .Weight = xlHairline
    End With
    ' ２．セルE1:E11を選択して選択したセルの左部縦線を実践にする。
    Range(Cells(1, 5), Cells(11, 5)).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End Sub

※上記１と２の間に別処理が入る為、セルA1:D11と選択し、
  右部縦線を実線にするという事は出来ません。

補足 :
１．Excel2007 SP2,Microsoft Visual Basic 6.5を使用
２．Excel2002 SP3だとエラーは発生しない
３．シートの保護等は行っていない
４．再現手順の３を実行中、Bookを閉じる前はセルの書式設定が反応するが、
    マクロを無効にして、再度開き直すとセルの書式設定が反応しなくなる。
５．Workbook_Openの代わりにWorkbook_BeforeSaveで同様のマクロを設定し、
    何度Saveを実行してもエラーにならない。
    (再度開き直して、Saveを行うと同様のエラーが発生する。)

以上の事から、実線→点線→実線と繰り返した後に、Bookを閉じると
セルがおかしくなってしまっているのかなと思います。

長々と書いてしまい申し訳ありませが、もしかしたら・・・
という回答でも構いませんので、回答宜しくお願い致します。

Wendy02 · Accepted Answer

こんにちは。

　With Range("A1:E11").Borders(xlInsideVertical)
　　　.LineStyle = xlNone
　End With


なるほどね。こちらとしては、罫線も書式ですから、ShapeのLineのように上書きされるわけではないはずですけれど・・・。それとも、xlInsideVertical　が問題なのでしょうか？

どうも割り切れているわけではないのですが、オブジェクト自体が安定していないのでしょうか。同様のエラーとしては、ピボットテーブルの更新でも発生するようですが、どうも私としては分かりませんでしたね。お役に立てずにすみませんでした。

Wendy02 · Answer

こんばんは。

海外の掲示板を検索してみると、同じようなエラーが、Excel 2007 で発生しているようです。マイクロソフト・サポートにはまだ出ていませんでした。ただ、私が読んだ限りでは、どこにも解決が出ていないようですが、ちょっと発想の転換をしてみました。一度、試してみてください。

その根拠は、単独で、xlInsideVertical を使用するとエラーを発生させる原因がある可能性があるからです。いずれ、この件は、Microsoft 側からはっきりすると思います。

なお、こちらではExcel 2007 で試してみましたが、エラーが発生しておりません。

'-------------------------------------------
Private Sub Workbook_Open()
　　Dim cl As Variant
　　Dim wt As Integer
　　For Each cl In Worksheets("Sheet1").Range("B1:E11").Columns
　　　　If cl.Column = 5 Then
　　　　　　wt = 2
　　　　Else
　　　　　　wt = 1
　　　　End If
　　　　With cl.Borders(xlEdgeLeft)
　　　　　　.LineStyle = xlContinuous
　　　　　　.Weight = wt
　　　　End With
　　Next cl
End Sub

Wendy02 · Answer

こんにちは。

>コマンドボタンをSheet上に作成し、標準モジュール上で
>処理を行おうとしても、"保存→Bookを閉じる"という動作を行うと同じエラーが発生

なぜ、同じエラーが発生するのか良く分かりません。少なくとも、「保存→Bookを閉じる」というCommandButtonと、保存時のイベント(BeforeSave)とは関係ないのではありませんか？

私は、Openイベントの中身を、Call で、標準モジュールのマクロを呼び出すものというように考えていました。

ただ、一般論ですが、バージョンの違いでエラーが発生する場合は、以下のような対処をします。実際に、私は、Borders の引数は、長くこのように書いています。決して、臨時の書き方ではありません。

これでダメだったら、Workbook_Open()の下に、Stop と書いて、ステップモードにして、どの部分でエラーが発生する箇所を調べてみてください。

ところで、新規のブックにも同様になりますか？

これで原因が追求できないようですと、Class モジュールを使わなくてはならないと思います。（不確かですが、Micorosoft サポートにあったような気がします。）

'-------------------------------------------
Private Sub Workbook_Open()
　　Worksheets("Sheet1").Select
　　With Range("A1:E11").Borders(11)
　　　　.LineStyle = 1
　　　　.Weight = 1
　　End With
　　With Range("E1:E11").Borders(7)
　　　　.LineStyle = 1
　　　　.Weight = 2
　　End With
End Sub

Wendy02 · Answer

こんにちは。
　
まず、エラーそのものとは関係のないところから指摘します。

>実線→点線→実線と繰り返した後に、

どうみても、何度も繰り返すようなマクロではないような気がします。なぜ、Workbook_Open()イベントに登録したのでしょうか？一旦、罫線を引いたら、それでおしまいではないでしょうか？その罫線がないときに、罫線を引くということですが、Workbook_Open()イベントではなく、一般マクロにしたほうがよいのではありませんか？

Workbook_Open()イベントは、ローカルマクロ（特定のブックのみに適用される）ものですから、そのコードの中身自体は、「標準モジュール」に適しているとは思います。

ただ、書かれていない部分にエラーの原因があるかもしれませんが、現在のマクロに適用するものとして、書き換えてみました。たぶん、Range オブジェクトが正しく取れていないから、Border クラスのエラーが出たのではないか、と考えました。

'-------------------------------------------

Private Sub Workbook_Open()
　　Worksheets("Sheet1").Select
　　With Range("A1:E11").Borders(xlInsideVertical)
　　　　.LineStyle = xlContinuous 
　　　　.Weight = xlHairline
　　End With
　　With Range("E1:E11").Borders(xlEdgeLeft)
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　End With
End Sub

Exce2007でBorder クラスの LineStype プロパティを設定できません。

こんにちは。

こんばんは。

こんにちは。

こんにちは。

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング