Excel VBA質問箱 IV

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

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


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

【20710】gif形式 わさ 04/12/16(木) 8:49 質問[未読]
【20711】Re:gif形式 Jaka 04/12/16(木) 9:26 発言[未読]
【20712】Re:gif形式 わさ 04/12/16(木) 9:58 お礼[未読]
【20714】Re:gif形式 IROC 04/12/16(木) 9:59 回答[未読]
【20716】Re:gif形式 わさ 04/12/16(木) 10:03 発言[未読]
【20719】Re:gif形式 bykin 04/12/16(木) 12:59 回答[未読]
【20720】Re:gif形式 わさ 04/12/16(木) 13:08 お礼[未読]
【20742】Re:gif形式 わさ 04/12/17(金) 8:48 質問[未読]
【20743】Re:gif形式 IROC 04/12/17(金) 9:11 発言[未読]
【20744】Re:gif形式 わさ 04/12/17(金) 9:13 発言[未読]
【20745】Re:gif形式 IROC 04/12/17(金) 9:29 発言[未読]
【20746】Re:gif形式 わさ 04/12/17(金) 9:36 発言[未読]
【20762】Re:gif形式 bykin 04/12/17(金) 22:28 発言[未読]
【20795】Re:gif形式 わさ 04/12/20(月) 8:44 お礼[未読]

【20710】gif形式
質問  わさ  - 04/12/16(木) 8:49 -

引用なし
パスワード
   質問です。
選択範囲のみをgif形式で保存するなんてマクロはないでしょうか?

【20711】Re:gif形式
発言  Jaka  - 04/12/16(木) 9:26 -

引用なし
パスワード
   こんにちは。

gifじゃないとだめでしょうか?
Jpgですけど。
これで一応出来るはずなんですが、またOS??IE?Office?がいかれたみたいなんで、画像を開いて確認できませんでした。
因みに画像周りの余白を取るには、APIを使わないと出来ないみたいです。
(どこかにあったんですがURL解りません。)

Sub fff()
  Dim Cht As Chart
  Dim Rgw As Single, Rgh As Single
  Dim MRng As Range
  Set MRng = Selection
  Rgh = MRng.Height
  Rgw = MRng.Width
  MRng.CopyPicture xlScreen, xlPicture
  With ActiveSheet.ChartObjects.Add(0, 0, Rgw, Rgh).Chart
    .Paste
    .ChartArea.Border.LineStyle = 0
    .Export ThisWorkbook.Path & "\セル保存.jpg"
    .Parent.Delete
  End With
End Sub

【20712】Re:gif形式
お礼  わさ  - 04/12/16(木) 9:58 -

引用なし
パスワード
   Jakaさんありがとうございます!
出来ました。
ちなみに保存先の指定ってのも出来るんでしょうか?
やはりGIFにはならないもんですか。
ホームページに貼り付けたかったんで、出来るだけ軽いほうが
いいのかと思ったものですから。

【20714】Re:gif形式
回答  IROC  - 04/12/16(木) 9:59 -

引用なし
パスワード
   >やはりGIFにはならないもんですか。
MS Photo Editor などで変換(圧縮)しては如何でしょうか?

【20716】Re:gif形式
発言  わさ  - 04/12/16(木) 10:03 -

引用なし
パスワード
   今は変換をして貼り付けているのですが、
それをエクセルで一回の操作で出来ればいいのにと思ったのですが。
そううまくはいかないようですね。

【20719】Re:gif形式
回答  bykin  - 04/12/16(木) 12:59 -

引用なし
パスワード
   こんにちわ。

Exportメソッドの引数を↓こうしたらええんとちゃいまっか?

.Export Filename:=ThisWorkbook.Path & "\セル保存.gif", FilterName:="GIF"

・・・で、ちょっと宣伝(^^;;
画像変換もできるアドイン作ってます。試してみてくださいな。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=41;id=FAQ

ほな。

【20720】Re:gif形式
お礼  わさ  - 04/12/16(木) 13:08 -

引用なし
パスワード
   出来ました!!
ありがとうございます!

【20742】Re:gif形式
質問  わさ  - 04/12/17(金) 8:48 -

引用なし
パスワード
   ちなみにこのマクロをMac版エクセルで使うとしたらこのままで使えるでしょうか?

【20743】Re:gif形式
発言  IROC  - 04/12/17(金) 9:11 -

引用なし
パスワード
   自分で出来ることを他人に頼むのは、いかがなものかと思います。
自分で試してみて、使えないことを確認してから質問した方がよいかと思います。

【20744】Re:gif形式
発言  わさ  - 04/12/17(金) 9:13 -

引用なし
パスワード
   実は試してみたのですが、出来ませんでした。

【20745】Re:gif形式
発言  IROC  - 04/12/17(金) 9:29 -

引用なし
パスワード
   Macで試行できる環境がないので意見だけですが、
>出来ませんでした。
だけでは、判断できないと思います。
どのように出来なかったのか?
エラーメッセージは表示されたのか?
など、不具合の状況は、くわしく書いた方が良いかと思います。

【20746】Re:gif形式
発言  わさ  - 04/12/17(金) 9:36 -

引用なし
パスワード
   MACは自宅で使用していて、昨日の夜試してみたのですが、出来ませんでした。
エラーメッセージまでは覚えていないので、自宅で試してみてからまた投稿します。

【20762】Re:gif形式
発言  bykin  - 04/12/17(金) 22:28 -

引用なし
パスワード
   こんばんわ。

Macのことは全然わからんのやけど、↓これが参考にならんかな?
http://office.microsoft.com/ja-jp/assistance/HP052004991041.aspx

WindowsのエクセルではGIFファイルのエクスポートにはグラフィックフィルタ(GIFIMP32.FLT)が
必要なんやけど、Macではどうなってるんかな?
Windowsやったらエクセルのセットアップで、フィルタの追加ができるねんけど、
Macはどうなんかな?

そのへんに原因あるようーな気ぃするねんけどな。

おちからにはなれまへんが・・・
ほな。

【20795】Re:gif形式
お礼  わさ  - 04/12/20(月) 8:44 -

引用なし
パスワード
   bykinさん、ありがとうございます。
教えていただいたHPを参考に勉強してみます。

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