[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロのボタンが実行後に消える』(チナスキー)
いつもお世話になっております。
表題のとおりなのですが、、 コマンドボタンを作成し、マクロを実行すると、そのボタンが消えます。 小さくなったりしているのかと、シートをくまなく探してもどこにも見つかりません。 作成したマクロは消失していません。 こういうことってありますか?
< 使用 Excel:Excel2007、使用 OS:Windows7 >
まず、マクロ内でアクティブシートを切り替えていて、いま見えているのは違うシートだ、という事ではないか確認しましょう。
ご自分で調べても原因が掴めないようならば、ボタンを押したときのコードを全て書いてください。
(???) 2017/10/17(火) 14:36
ちなみにマクロはどのようなコードですか?
もし、時間があれば同じ現象になるか試してみたいと思います。
(まっつわん) 2017/10/17(火) 15:06
???さま まっつあんさま
早々のお返事ありがとうございます。 なんとか自力でと調べながら、、と、遅くなって申し訳ありません。 そして、すみません、原因はわたくしの見落としでした、マクロのことを理解しておらずで、、 自作したわけではなく、以下のサイトを参考にし、写真帳を作成いたしました。
http://sato001.com/excel-setpictures-class
そして、シート状に「フォームコントロール」でコマンドボタンを配置し、 マクロを実行すると写真帳は完成しましたが、ボタンが消えてしまいました。
で、、「クラスモジュール」内の「画像データの削除」の部分がそうさせているのかしら、と思い、 以下の構文を消すと、マクロ実行後、コマンドボタンが消えずに残っておりました。
Call DeletePic '既存の写真削除
という箇所と、、
'********************************************
'
' 画像データの削除
'
'********************************************
Private Sub DeletePic()
Dim oShape As Shape
For Each oShape In ActiveSheet.Shapes oShape.Delete Next
End Sub
しかし、既存の写真を消してもらえるのはとても助かる故、この構文は残しておきたい気持ちはしています。
「コマンドボタンを残し」つつ、「既存の写真は消す」ことは可能でしょうか?
(チナスキー) 2017/10/18(水) 14:22
Private Sub DeletePic()
ActiveSheet.Pictures.Delete End Sub
一行で出来ますから、サブルーチン化は不要かもですね。
(まっつわん) 2017/10/18(水) 14:39
↓1年間使用フリーなうえ、期限が切れた後も機能制限は付くけど使えると思います。
https://www.wise.co.jp/quickproject/pm/
買っても9,800円。個人でも買える値段かと。。。
他にも、有料・無料のソフトがあるのでそちらを利用した方が気が楽ですよ。
ExcelVBAで開発された物もあるはずです。
(まっつわん) 2017/10/18(水) 14:48
まっつあんさま 早々のご回答、感謝いたします! ご指定の構文に変えたら、できましたーーー(涙)
そうですね、、たしかにそれ専用のソフトを手に入れて、というのが一番時間もかからずシロウトにはいいのですが、 会社のPCは制限がかかってしまい、インストールできないのです。。
本当に助かりました。本当に、本当に、ありがとうございました! (チナスキー) 2017/10/18(水) 16:39
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.