Excel VBA質問箱 IV

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

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


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

【18992】図形の画像保存 さく 04/10/19(火) 10:10 質問[未読]
【19019】Re:図形の画像保存 Kein 04/10/19(火) 15:30 回答[未読]
【19060】Re:図形の画像保存 さく 04/10/20(水) 13:15 お礼[未読]
【19063】Re:図形の画像保存 Kein 04/10/20(水) 14:15 回答[未読]
【19066】Re:図形の画像保存 さく 04/10/20(水) 15:11 お礼[未読]
【19065】Re:図形の画像保存 Kein 04/10/20(水) 14:19 発言[未読]

【18992】図形の画像保存
質問  さく  - 04/10/19(火) 10:10 -

引用なし
パスワード
   独学で、VBAを使って勉強しています。
図形をエクセル上で作成し、画像保存する際、
保存したい図形をコピーして、クリップオーガナイザに
貼り付けて、マイピクチャを開いて、名前や
画像形式の変更をしていますが、
これをVBAでボタンひとつで保存する方法って
あるんでしょうか?

グラフは、保存できるのに・・・。

【19019】Re:図形の画像保存
回答  Kein  - 04/10/19(火) 15:30 -

引用なし
パスワード
   ↓ここのツールを利用させてもらったら、どうでしょーか ?
http://hp.vector.co.jp/authors/VA016119/work_donot_link.html
私は使ったことがないので、外してたらすいません。

【19060】Re:図形の画像保存
お礼  さく  - 04/10/20(水) 13:15 -

引用なし
パスワード
   ▼Kein さん:
>↓ここのツールを利用させてもらったら、どうでしょーか ?
>http://hp.vector.co.jp/authors/VA016119/work_donot_link.html
>私は使ったことがないので、外してたらすいません。

ありがとうございます!できました。
分りにくい質問にお答え頂き、本当にありがとうございます。
少し内容を書き換えてみたら、バッチリでした。
手順=
 htmで保存
 必要なファイルを好きな名前に変えてコピー
 不要なファイルを削除
で、できたのですが、最後、
 不要なフォルダを削除
するところでエラーが起きてしまいました。

If Dir("C:\test1.files\", vbDirectory) <> "" Then RmDir "C:\test1.files\"

と記述しましたが、「パス名が無効」となってしまいました。
もう少し中身確認してみて、もしやっぱりだめだったら
もう一度質問箱に投稿してみようと思います。

本当にありがとうございます!!

【19063】Re:図形の画像保存
回答  Kein  - 04/10/20(水) 14:15 -

引用なし
パスワード
   >「パス名が無効」となってしまいました
Dir関数のディレクトリー検索は、なぜかうまくいかない場合が多いです。
なので FSO を使った方がいいでしょう。

With CreateObject("Scripting.FileSystemObject")
  If .FolderExists("C:\test1.files") Then
   .DeleteFolder "C:\test1.files"
  End If
End With

などとします。

【19065】Re:図形の画像保存
発言  Kein  - 04/10/20(水) 14:19 -

引用なし
パスワード
   よく見たらフォルダー名にドットが入ってますね ?
ドットを挟んだフォルダー名は、無効ではなかったかな・・ ?

【19066】Re:図形の画像保存
お礼  さく  - 04/10/20(水) 15:11 -

引用なし
パスワード
   ▼Kein さん:
>>「パス名が無効」となってしまいました
>Dir関数のディレクトリー検索は、なぜかうまくいかない場合が多いです。
>なので FSO を使った方がいいでしょう。
>
>With CreateObject("Scripting.FileSystemObject")
>  If .FolderExists("C:\test1.files") Then
>   .DeleteFolder "C:\test1.files"
>  End If
>End With
>
>などとします。

あ、できました。
すごいです!!
RmDir で記述したほうですが、
単独で実行すると消去してくれました。
あと、デバック状態で一度フォルダの中身を確認したあと
実行すると消去してくれました。
確かに、フォルダ名に"."が入っているのも嫌だなーとは
思っていましたが、上記の方法でキレイにできました。

ありがとうございました。
また、何かの時には投稿させていただきたいと思います。
(今度はアドバイスできる側になりたいなぁ!)

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