Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16378 / 76738

←次へ　｜　前へ→


	【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

0 hits

▼

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