Excel VBA質問箱 IV

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

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


10332 / 13644 ツリー ←次へ | 前へ→

【22435】オートシェイプの斜線でエラーが出ます。 row 05/2/20(日) 14:38 質問[未読]
【22436】Re:オートシェイプの斜線でエラーが出ます。 かみちゃん 05/2/20(日) 15:10 発言[未読]
【22437】Re:オートシェイプの斜線でエラーが出ます。 row 05/2/20(日) 16:50 お礼[未読]

【22435】オートシェイプの斜線でエラーが出ます。
質問  row E-MAIL  - 05/2/20(日) 14:38 -

引用なし
パスワード
   過去ログを検索しても、見当たらなかったので
質問します。

auto_openにて、ファイルを開いた時にマクロが自動実行するようになっています。
その中に、書いてあるオートシェイプの斜線で、エラーが発生します。
(アプリケーション定義、オブジェクト定義のエラー)

マクロコードは、以下の通りです。

  ActiveSheet.Shapes.AddLine(602.25, 118.5, 865#, 520.5).Select
  Selection.ShapeRange.Flip msoFlipVertical

これは、マクロの自動記録から得たコードです。

原本ファイルでのみ実行すると問題無いのですが、
マクロで原本を100個コピーするので
コピー先でも、マクロを実行しなければなりません。

条件分岐の中にあるので、全てが ファイルを開いた時に
斜線を引く訳では無いので、困っています。

よろしくお願いいたします。

【22436】Re:オートシェイプの斜線でエラーが出ま...
発言  かみちゃん  - 05/2/20(日) 15:10 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>その中に、書いてあるオートシェイプの斜線で、エラーが発生します。
>(アプリケーション定義、オブジェクト定義のエラー)

エラーが出たときのActiveSheetが保護がかかっているとかはないですか?
ちなみに、保護がかかった状態で実行すると、上記エラーは出ます。
当然、保護がかかっいない状態で実行すると、エラーは出ませんでした。

【22437】Re:オートシェイプの斜線でエラーが出ま...
お礼  row  - 05/2/20(日) 16:50 -

引用なし
パスワード
   >エラーが出たときのActiveSheetが保護がかかっているとかはないですか?
>ちなみに、保護がかかった状態で実行すると、上記エラーは出ます。
>当然、保護がかかっいない状態で実行すると、エラーは出ませんでした。

おっしゃる通り保護がかかっていました。
すっかり、それを忘れていました!

ありがとうございました。

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