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
>私は使ったことがないので、外してたらすいません。

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

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