Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10597 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20866】ぜひ御教授下さい。 ずいき 04/12/23(木) 13:31 質問[未読]
【20868】Re:ファイルサイズをできるだけ小さくしたい かみちゃん 04/12/23(木) 13:41 発言[未読]
【20869】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 13:45 質問[未読]
【20872】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 13:53 質問[未読]
【20873】Re:ファイルサイズをできるだけ小さくしたい ちゃっぴ 04/12/23(木) 13:59 回答[未読]
【20875】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 14:11 質問[未読]
【20876】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 14:16 質問[未読]
【20879】Re:ファイルサイズをできるだけ小さくしたい かみちゃん 04/12/23(木) 14:24 発言[未読]
【20881】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 14:35 質問[未読]
【20882】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 14:42 質問[未読]
【20883】Re:ファイルサイズをできるだけ小さくしたい かみちゃん 04/12/23(木) 15:03 回答[未読]
【20884】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/23(木) 15:18 お礼[未読]
【20889】Re:ファイルサイズをできるだけ小さくしたい かみちゃん 04/12/23(木) 16:19 回答[未読]
【20944】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/27(月) 14:35 お礼[未読]
【20946】Re:ファイルサイズをできるだけ小さくしたい ずいき 04/12/27(月) 15:18 質問[未読]
【20870】Re:ぜひ御教授下さい。 YN61 04/12/23(木) 13:46 発言[未読]
【20874】Re:ぜひ御教授下さい。 ずいき 04/12/23(木) 14:00 質問[未読]
【20878】Re:宅ふぁいる便 かみちゃん 04/12/23(木) 14:19 発言[未読]
【20880】Re:宅ふぁいる便 ずいき 04/12/23(木) 14:25 質問[未読]
【20898】Re:宅ふぁいる便 YN61 04/12/23(木) 20:28 発言[未読]
【20866】ぜひ御教授下さい。
質問  ずいき  - 04/12/23(木) 13:31 -
引用なし
パスワード
   こんにちは。初めての投稿になります。
初歩的な質問なのかもしれませんが、私にとっては、難題なのです。
よろしくお願いします。

マクロでボタンを作り、仕事の効率が上がるブックを作成し、上司にも好評を頂いたのですが、
上司に【これらブックををメールに添付して送付するのにデータが重くて（一つのブックが約２メガ）送れないからこんなボタン全部外せ。】
と言われ困っています。
私は『圧縮して送れば良いじゃないですか』と反撃をしたのですが、
上司に【俺も先方もめんどくさい】と一蹴されました。

私の稚拙な頭をフル回転させて出た解決法は、メール送信用というブックを作り、その時にマクロを外し、その状態で送ろう（メール送信先ではそのボタンは使わないので）そうすれば軽くなるはず。というものです。
しかしその方法がわかりません。

どなたかお知恵を頂けないでしょうか。
【20868】Re:ファイルサイズをできるだけ小さくし...
発言  かみちゃん  - 04/12/23(木) 13:41 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> メール送信用というブックを作り、その時にマクロを外し、その状態で送ろう
> （メール送信先ではそのボタンは使わないので）そうすれば軽くなるはず。とい
> うものです。

送信したいシートだけを新規ブックにコピーすると、標準モジュールに書かれたコ
ードは新規ブックには付いてきません。
ただ、シートモジュールに書かれているコードがあって、それを消したいならば、
コードを消すマクロを書けばできます。
さらに、新規ブックにコピーしたシートにボタンがあって、それを消したいならば
そのボタンをすべて消すマクロを書けばできます。

ためしに、上記のことを手動ですると、メールで送れるくらいのサイズになるので
しょうか？あまりその効果が期待できないような気がするのですが・・・
つまり、サイズが大きいのは、ボタンやコードのせいではないのでは？と思いま
す。

※タイトルは、質問内容がわかるようなものにしましょう。
【20869】Re:ファイルサイズをできるだけ小さくし...
質問  ずいき  - 04/12/23(木) 13:45 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>> メール送信用というブックを作り、その時にマクロを外し、その状態で送ろう
>> （メール送信先ではそのボタンは使わないので）そうすれば軽くなるはず。とい
>> うものです。
>
>送信したいシートだけを新規ブックにコピーすると、標準モジュールに書かれたコ
>ードは新規ブックには付いてきません。
>ただ、シートモジュールに書かれているコードがあって、それを消したいならば、
>コードを消すマクロを書けばできます。
>さらに、新規ブックにコピーしたシートにボタンがあって、それを消したいならば
>そのボタンをすべて消すマクロを書けばできます。
>
>ためしに、上記のことを手動ですると、メールで送れるくらいのサイズになるので
>しょうか？あまりその効果が期待できないような気がするのですが・・・
>つまり、サイズが大きいのは、ボタンやコードのせいではないのでは？と思いま
>す。
>
>※タイトルは、質問内容がわかるようなものにしましょう。


あっ、お返事ありがとうございます。
ちょっとやってみます。
ちなみに、わたしがボタンをつけるまえは約７００キロでした。
【20870】Re:ぜひ御教授下さい。
発言  YN61  - 04/12/23(木) 13:46 -
引用なし
パスワード
   ▼ずいき さん：
>こんにちは。初めての投稿になります。
>初歩的な質問なのかもしれませんが、私にとっては、難題なのです。
>よろしくお願いします。
>
>マクロでボタンを作り、仕事の効率が上がるブックを作成し、上司にも好評を頂いたのですが、
>上司に【これらブックををメールに添付して送付するのにデータが重くて（一つのブックが約２メガ）送れないからこんなボタン全部外せ。】
>と言われ困っています。
>私は『圧縮して送れば良いじゃないですか』と反撃をしたのですが、
>上司に【俺も先方もめんどくさい】と一蹴されました。
>
>私の稚拙な頭をフル回転させて出た解決法は、メール送信用というブックを作り、その時にマクロを外し、その状態で送ろう（メール送信先ではそのボタンは使わないので）そうすれば軽くなるはず。というものです。
>しかしその方法がわかりません。
>
>どなたかお知恵を頂けないでしょうか。

大阪ガスの「宅ふぁいる便」ですと４０Mまで送付できます。・・・・・・・
同時に送ることのできる人数は最大３名、最大１０ファイル、合計４０ＭＢ（現在の上限設定です）まで可能です。

http://www.filesend.to/
【20872】Re:ファイルサイズをできるだけ小さくし...
質問  ずいき  - 04/12/23(木) 13:53 -
引用なし
パスワード
   ▼ずいき さん：
>▼かみちゃん さん：
>>こんにちは。かみちゃん　です。
>>
>>> メール送信用というブックを作り、その時にマクロを外し、その状態で送ろう
>>> （メール送信先ではそのボタンは使わないので）そうすれば軽くなるはず。とい
>>> うものです。
>>
>>送信したいシートだけを新規ブックにコピーすると、標準モジュールに書かれたコ
>>ードは新規ブックには付いてきません。
>>ただ、シートモジュールに書かれているコードがあって、それを消したいならば、
>>コードを消すマクロを書けばできます。
>>さらに、新規ブックにコピーしたシートにボタンがあって、それを消したいならば
>>そのボタンをすべて消すマクロを書けばできます。
>>
>>ためしに、上記のことを手動ですると、メールで送れるくらいのサイズになるので
>>しょうか？あまりその効果が期待できないような気がするのですが・・・
>>つまり、サイズが大きいのは、ボタンやコードのせいではないのでは？と思いま
>>す。
>>
>>※タイトルは、質問内容がわかるようなものにしましょう。
>
>
>あっ、お返事ありがとうございます。
>ちょっとやってみます。
>ちなみに、わたしがボタンをつけるまえは約７００キロでした。


あ、もしかすると、
>>そのボタンをすべて消すマクロを書けばできます。
かみちゃんさんのレスの、↑これを使えば、”まずふつうに保存→そのボタンを押してすべてのマクロを消す→メールに添付する→保存しないでまた開きなおす。”
って方法はどんなもんでしょう。・・・って愚考第二弾でした。
【20873】Re:ファイルサイズをできるだけ小さくし...
回答  ちゃっぴ  - 04/12/23(木) 13:59 -
引用なし
パスワード
   というか、社内では、対象のMacroは実行するため必要だが、
(社外に)提出するときには、Dataのみ必要で、Macroは必要ない
ということでよろしいでしょうか？

ということなら、Macroは別Bookにしておくとか、Addin化しておくとか
したほうがいいと思います。

Data Bookと Macro Bookが別でないと、MacroにBugがあった場合、
メンテナンスが大変ですよ。
【20874】Re:ぜひ御教授下さい。
質問  ずいき  - 04/12/23(木) 14:00 -
引用なし
パスワード
   ▼YN61 さん：
>▼ずいき さん：
>>こんにちは。初めての投稿になります。
>>初歩的な質問なのかもしれませんが、私にとっては、難題なのです。
>>よろしくお願いします。
>>
>>マクロでボタンを作り、仕事の効率が上がるブックを作成し、上司にも好評を頂いたのですが、
>>上司に【これらブックををメールに添付して送付するのにデータが重くて（一つのブックが約２メガ）送れないからこんなボタン全部外せ。】
>>と言われ困っています。
>>私は『圧縮して送れば良いじゃないですか』と反撃をしたのですが、
>>上司に【俺も先方もめんどくさい】と一蹴されました。
>>
>>私の稚拙な頭をフル回転させて出た解決法は、メール送信用というブックを作り、その時にマクロを外し、その状態で送ろう（メール送信先ではそのボタンは使わないので）そうすれば軽くなるはず。というものです。
>>しかしその方法がわかりません。
>>
>>どなたかお知恵を頂けないでしょうか。
>
>大阪ガスの「宅ふぁいる便」ですと４０Mまで送付できます。・・・・・・・
>同時に送ることのできる人数は最大３名、最大１０ファイル、合計４０ＭＢ（現在の上限設定です）まで可能です。
>
>http://www.filesend.to/


お返事ありがとうございます。
同時に１００〜１５０の取引先にするのです。
又、新たにソフトをインストールする場合、決済を待つ必要があり、しかも通らない公算が大です。
【20875】Re:ファイルサイズをできるだけ小さくし...
質問  ずいき  - 04/12/23(木) 14:11 -
引用なし
パスワード
   ▼ちゃっぴ さん：
>というか、社内では、対象のMacroは実行するため必要だが、
>(社外に)提出するときには、Dataのみ必要で、Macroは必要ない
>ということでよろしいでしょうか？
>
>ということなら、Macroは別Bookにしておくとか、Addin化しておくとか
>したほうがいいと思います。
>
>Data Bookと Macro Bookが別でないと、MacroにBugがあった場合、
>メンテナンスが大変ですよ。


！！！！！まさにその通りです。
ご面倒をおかけして恐縮なのですが、その方向でそのやり方を教えていただけないでしょうか？データ自体はマクロを使っているブックを参照すれば良いのでしょうけども、罫線やセルに付いている色も一緒に送らなくてはならないのです。
【20876】Re:ファイルサイズをできるだけ小さくし...
質問  ずいき  - 04/12/23(木) 14:16 -
引用なし
パスワード
   ▼ずいき さん：
>▼ちゃっぴ さん：
>>というか、社内では、対象のMacroは実行するため必要だが、
>>(社外に)提出するときには、Dataのみ必要で、Macroは必要ない
>>ということでよろしいでしょうか？
>>
>>ということなら、Macroは別Bookにしておくとか、Addin化しておくとか
>>したほうがいいと思います。
>>
>>Data Bookと Macro Bookが別でないと、MacroにBugがあった場合、
>>メンテナンスが大変ですよ。
>
>
>！！！！！まさにその通りです。
>ご面倒をおかけして恐縮なのですが、その方向でそのやり方を教えていただけないでしょうか？データ自体はマクロを使っているブックを参照すれば良いのでしょうけども、罫線やセルに付いている色も一緒に送らなくてはならないのです。


”データブックとマクロブックを別にする。”まさにいまの私が欲しい技そのものです。マクロブックというのは、今私が仕事で使っている方のブックの事ですよね？データブックとはどのようにつくるのですか？
【20878】Re:宅ふぁいる便
発言  かみちゃん  - 04/12/23(木) 14:19 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>>大阪ガスの「宅ふぁいる便」ですと４０Mまで送付できます。・・・・・・・
>>同時に送ることのできる人数は最大３名、最大１０ファイル、合計４０ＭＢ（現在の上限設定です）まで可能です。
>>
>>http://www.filesend.to/
>
>同時に１００〜１５０の取引先にするのです。
>又、新たにソフトをインストールする場合、決済を待つ必要があり、しかも通ら
>ない公算が大です。

ソフトをインストールするのではないです。
ＵＲＬを一度ご覧ください。しかも、利用料金は無料にもかかわらずセキュリティ
はきちんとしてあるようです。（私も使っています。）
ただ、同時に１５０もの宛先に送るのであれば、メーリングリストのようなアドレ
スを作って、配信すればできるかもしれませんが、ちょっと難しいかもしれません
ね。
【20879】Re:ファイルサイズをできるだけ小さくし...
発言  かみちゃん  - 04/12/23(木) 14:24 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>”データブックとマクロブックを別にする。”まさにいまの私が欲しい技そのも
>のです。マクロブックというのは、今私が仕事で使っている方のブックの事です
>よね？データブックとはどのようにつくるのですか？

私が提案した方法ではいけないのでしょうか？
ちゃっぴさんのは、初めからDataブックとMacroブックをわけて運用する方法だと思います。
私のは、最後にDataブックにDataのみコピーする方法です。
まずは手動でしてみて、したいことを決めるとあとは、コードを組むだけです。
【20880】Re:宅ふぁいる便
質問  ずいき  - 04/12/23(木) 14:25 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>>大阪ガスの「宅ふぁいる便」ですと４０Mまで送付できます。・・・・・・・
>>>同時に送ることのできる人数は最大３名、最大１０ファイル、合計４０ＭＢ（現在の上限設定です）まで可能です。
>>>
>>>http://www.filesend.to/
>>
>>同時に１００〜１５０の取引先にするのです。
>>又、新たにソフトをインストールする場合、決済を待つ必要があり、しかも通ら
>>ない公算が大です。
>
>ソフトをインストールするのではないです。
>ＵＲＬを一度ご覧ください。しかも、利用料金は無料にもかかわらずセキュリティ
>はきちんとしてあるようです。（私も使っています。）
>ただ、同時に１５０もの宛先に送るのであれば、メーリングリストのようなアドレ
>スを作って、配信すればできるかもしれませんが、ちょっと難しいかもしれません
>ね。


何も判っていなかった様で失礼しました。
ただいま見てみました。使ってよいものかどうか上司に聞いてみます。
【20881】Re:ファイルサイズをできるだけ小さくし...
質問  ずいき  - 04/12/23(木) 14:35 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>”データブックとマクロブックを別にする。”まさにいまの私が欲しい技そのも
>>のです。マクロブックというのは、今私が仕事で使っている方のブックの事です
>>よね？データブックとはどのようにつくるのですか？
>
>私が提案した方法ではいけないのでしょうか？
>ちゃっぴさんのは、初めからDataブックとMacroブックをわけて運用する方法だと思います。
>私のは、最後にDataブックにDataのみコピーする方法です。
>まずは手動でしてみて、したいことを決めるとあとは、コードを組むだけです。


かみちゃんさん失礼致しました。
今、かみちゃんさんの方法で思考錯誤しているのですが、ブックごと送信するのです。ブックにある全てのマクロボタンを削除するというマクロボタンを作って（ややこしいですね）、その状態で送信するって言う寸法というのは。。。
愚考第三弾でした。
もしこれが出来るのであれば、その方法をお教え頂けますでしょうか？
【20882】Re:ファイルサイズをできるだけ小さくし...
質問  ずいき  - 04/12/23(木) 14:42 -
引用なし
パスワード
   ▼ずいき さん：
>▼かみちゃん さん：
>>こんにちは。かみちゃん　です。
>>
>>>”データブックとマクロブックを別にする。”まさにいまの私が欲しい技そのも
>>>のです。マクロブックというのは、今私が仕事で使っている方のブックの事です
>>>よね？データブックとはどのようにつくるのですか？
>>
>>私が提案した方法ではいけないのでしょうか？
>>ちゃっぴさんのは、初めからDataブックとMacroブックをわけて運用する方法だと思います。
>>私のは、最後にDataブックにDataのみコピーする方法です。
>>まずは手動でしてみて、したいことを決めるとあとは、コードを組むだけです。
>
>
>かみちゃんさん失礼致しました。
>今、かみちゃんさんの方法で思考錯誤しているのですが、ブックごと送信するのです。ブックにある全てのマクロボタンを削除するというマクロボタンを作って（ややこしいですね）、その状態で送信するって言う寸法というのは。。。
>愚考第三弾でした。
>もしこれが出来るのであれば、その方法をお教え頂けますでしょうか？


かみちゃんさんの仰ったコードを消す。という技を使えばマクロ（コードも？）を外した状態で保存って出来るものなのでしょうか？
【20883】Re:ファイルサイズをできるだけ小さくし...
回答  かみちゃん  - 04/12/23(木) 15:03 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>使えばマクロ（コードも？）を外した状態で保存って出来るものなのでしょう
>か？

はい。できます。

以下のＵＲＬが参考になると思います。
http://excelfactory.cool.ne.jp/ExcelVBATips/vbe/vbe_index.html
・ThisWorkbookのモジュールのコードを消去するには？
・標準モジュールのコードを消去するには？
・シートのモジュールのコードを消去するには？
・ブック内のすべてのマクロを消去・削除するには？

ただし、必ずバックアップを取ってから行なってください。
シートだけをなぜ新規ブックにコピーしないのかが不思議ですが・・・

※本文中の引用は最低限のものでいいのではないでしょうか？
【20884】Re:ファイルサイズをできるだけ小さくし...
お礼  ずいき  - 04/12/23(木) 15:18 -
引用なし
パスワード
   >※本文中の引用は最低限のものでいいのではないでしょうか？

↑ごもっともです。
大変参考になりました。ありがとうございました。
【20889】Re:ファイルサイズをできるだけ小さくし...
回答  かみちゃん  - 04/12/23(木) 16:19 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> ブックにある全てのマクロボタンを削除するというマクロボタンを作って（やや
> こしいですね）、その状態で送信するって言う寸法というのは。。。

以下のコードでボタンを削除することができると思います。

Option Explicit

Sub Macro1()
　Dim ws As Worksheet
　Dim myShp As Shape
　
　'すべてのシートに対して処理する
　For Each ws In Worksheets
　　For Each myShp In ws.Shapes
　　　Select Case myShp.Type
　　　　'フォーム
　　　　Case msoFormControl
　　　　　'コマンドボタン
　　　　　If myShp.FormControlType = xlButtonControl Then
　　　　　　myShp.Delete
　　　　　End If
　　　　'コントロールツールボックス
　　　　Case msoOLEControlObject
　　　　　'オブジェクト名がCommandButtonで始まる場合
　　　　　If myShp.Name Like "CommandButton*" Then
　　　　　　myShp.Delete
　　　　　End If
　　　End Select
　　Next
　Next
End Sub
【20898】Re:宅ふぁいる便
発言  YN61  - 04/12/23(木) 20:28 -
引用なし
パスワード
   ▼ずいき さん：

>ただいま見てみました。使ってよいものかどうか上司に聞いてみます。

送信先が非常に多いようですね。このような送信が今後も続くのでしょうか？
それとも今回のみでしょうか？

今回のみでしたら、不便さを我慢されて「宅ふぁいる便」を使われては？
ただし、サーバでの保存期間があまり長くありませんので、ご留意ください。
私は画像を友達に送るときに使っています･････

今後共、このようなファイルを送信されるケースが非常に頻度が高いようでしたら
少し金額が張りますが･･･ナビエクスプレスなどは便利かも知れませんね。
（これもセキュティ・安全性が高く、心配要りませんし）これは、小生は使った
ことはありませんが、これ以外にも探せば無料のものがあるかも知れませんね。

ナビエクスプレスのURLご参考まで･･･
http://www.naviexp.com/
【20944】Re:ファイルサイズをできるだけ小さくし...
お礼  ずいき  - 04/12/27(月) 14:35 -
引用なし
パスワード
   かみちゃんさん。あなたは神ちゃんさんだったんですね。
本当にありがとうございます。
【20946】Re:ファイルサイズをできるだけ小さくし...
質問  ずいき  - 04/12/27(月) 15:18 -
引用なし
パスワード
   あっ。すみません。
ただいまお教え頂いたコードを貼り付けて、実行してみたのですが、マクロボタンにはなんの変化も起きません。
私の使っているブックの情報に合わせて何か変更すべきところがあるのでしょうか？
何度もお聞きして大変申し訳ありません。なにとぞ御知恵を授けてください。
私の方でも勉強して見ます。
まずは、ＳＨＡＰＥＳとは何かから。。。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10597 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free