Excel VBA質問箱 IV

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

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


2812 / 13645 ツリー ←次へ | 前へ→

【65824】線を描いて保存する アイリス 10/6/29(火) 17:19 質問[未読]
【65826】Re:線を描いて保存する じゃがりきん 10/6/29(火) 19:00 発言[未読]
【65839】Re:線を描いて保存する アイリス 10/6/30(水) 9:47 お礼[未読]
【65828】Re:線を描いて保存する 通り魔 10/6/29(火) 19:56 発言[未読]
【65840】Re:線を描いて保存する アイリス 10/6/30(水) 9:49 お礼[未読]
【65845】Re:線を描いて保存する 独覚 10/6/30(水) 11:53 発言[未読]
【65847】Re:線を描いて保存する アイリス 10/6/30(水) 14:13 発言[未読]

【65824】線を描いて保存する
質問  アイリス  - 10/6/29(火) 17:19 -

引用なし
パスワード
   EXCEL  VBAでワークシート上に例えば線を平行に5本ほど描きその線に
緑いろの色をつけ(何色でもかまいません)ワークシートの枠線を消した上で
ワークシートを適当なフォルダにBMPあるいはJPEGファイルとして保存するには
どのようなプログラムを書けば宜しいでしょうか。よろしくお願いします。

【65826】Re:線を描いて保存する
発言  じゃがりきん  - 10/6/29(火) 19:00 -

引用なし
パスワード
   シートをHTML変換するとシェイプは勝手に画像ファイルになってついてくるよ
ただそれぞれのシェイプごとに分かれて出てくるから、それが嫌だったら
別のシートにいったん画像としてコピーするといいよ

【65828】Re:線を描いて保存する
発言  通り魔  - 10/6/29(火) 19:56 -

引用なし
パスワード
   特定セル 画像 jpg で検索して出たサイトを参考にしました
原理はそこの人もよくわからないそうです

Sub aaa()
On Error GoTo hell
Dim a As String, b As String, c As Object, d As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
b = ThisWorkbook.Path & "\aaaaaaaaaaaaaaaaa"
Set c = CreateObject("Scripting.FileSystemObject")
'↓ここの範囲を適当に変える
ActiveSheet.Range("a1:g32").CopyPicture xlScreen, xlBitmap
Set d = Sheets.Add
d.Paste Destination:=d.Range("A1")
With ActiveWorkbook.PublishObjects.Add(xlsorcesheet, b & ".html", d.Name, "", xlHtmlStatic, "a")
.Publish (True)
.AutoRepublish = False
End With
d.Delete
'↓2007の場合はjpgをgifに変える
Name b & ".files\image002.jpg" As b & ".jpg"
c.DeleteFolder ("" & b & ".files")
Kill pathname:="" & b & ".HTML"
hell:
Set c = Nothing
Set d = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

【65839】Re:線を描いて保存する
お礼  アイリス  - 10/6/30(水) 9:47 -

引用なし
パスワード
   ありがとうございました。回答に感謝します。

【65840】Re:線を描いて保存する
お礼  アイリス  - 10/6/30(水) 9:49 -

引用なし
パスワード
   ありがとうございました。
回答に感謝します。

【65845】Re:線を描いて保存する
発言  独覚  - 10/6/30(水) 11:53 -

引用なし
パスワード
   解決したのであればQ&Aサロンにも解決報告をしましょう。

あと、Q&Aサロンの方はマルチポスト禁止です。

こちらのサイトの基本方針から。

>マルチポストについて
>別のサイト(掲示板)にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。
>当質問箱では、マルチポストは原則認めています。
>つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。

>しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。
>そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。
>質問しっぱなし、というのはモラルに反します。
>「解決したからいいや」というのではありません。

>また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。
http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=138171&rev=0

【65847】Re:線を描いて保存する
発言  アイリス  - 10/6/30(水) 14:13 -

引用なし
パスワード
   わかりました。了解です。

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