Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10334 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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

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

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

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

よろしくお願いいたします。
【22436】Re:オートシェイプの斜線でエラーが出ま...
発言  かみちゃん  - 05/2/20(日) 15:10 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

エラーが出たときのActiveSheetが保護がかかっているとかはないですか？
ちなみに、保護がかかった状態で実行すると、上記エラーは出ます。
当然、保護がかかっいない状態で実行すると、エラーは出ませんでした。
【22437】Re:オートシェイプの斜線でエラーが出ま...
お礼  row  - 05/2/20(日) 16:50 -
引用なし
パスワード
   >エラーが出たときのActiveSheetが保護がかかっているとかはないですか？
>ちなみに、保護がかかった状態で実行すると、上記エラーは出ます。
>当然、保護がかかっいない状態で実行すると、エラーは出ませんでした。

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

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10334 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free