Board logo

標題: 如何把儲存格 A1:D10 的內容變成相片另存成Jpg檔 [打印本頁]
作者: apolloooo    時間: 2014-2-11 12:34     標題: 如何把儲存格 A1:D10 的內容變成相片另存成Jpg檔

如何把儲存格 A1:D10 的內容變成相片另存成Jpg檔
作者: GBKEE    時間: 2014-2-11 12:47

本帖最後由 GBKEE 於 2014-2-11 12:48 編輯

回復 1# apolloooo
沒有說明A1:D10 的內容,不知如何回答.
作者: apolloooo    時間: 2014-2-11 13:18

回復 2# GBKEE


假如內容都是123。
我要把 A1:D10 的範圍，copy出來轉存jpg
作者: GBKEE    時間: 2014-2-11 14:14

回復 3# apolloooo
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range
  4.     Set Rng = Range("A1:D10") '指定的範圍
  5.     'Set Rng = Selection      '滑鼠選定的範圍
  6.     Rng.CopyPicture
  7.     With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '新增 圖表
  8.         .Chart.Paste                                           '貼上 圖片
  9.         .Chart.Export Filename:="d:\Test.jpg"                  '匯出 圖片
  10.         .Delete                                                '刪除 圖表
  11.     End With
  12. End Sub
複製代碼
作者: zxcxz    時間: 2014-2-15 10:45

回復 4# GBKEE
延申問題，請問可以將圖片直接貼到html格式的電郵內嗎？

以下是發送電郵碼
  1. Sub SendEmail()

  3. Dim FileNameZip, FileNameXls
  4. Dim oApp As Object, OutApp As Object, OutMail As Object
  5. FileNameXls = Detail_Filename

  7.         'Create the mail
  8.         Set OutApp = CreateObject("Outlook.Application")
  9.         Set OutMail = OutApp.CreateItem(0)
  10.         AttachFile = "C:\excel\abc.xlsx"
  11.         On Error Resume Next
  12.         With OutMail
  13.             .To = "[email protected]"
  14.             .CC = "[email protected]"
  15.             .BCC = ""
  16.             .Subject = "Test add excel cell image to email"
  17.             .Body = "Dear All," & vbNewLine & vbNewLine
  18.             '請問怎樣將圖貼在這裡？ & "Regards!"

  20.             .Attachments.Add AttachFile
  21.             .Display
  22. End With
  23.         On Error GoTo 0
  24. End Sub
複製代碼
作者: GBKEE    時間: 2014-2-16 06:37

回復 5# zxcxz
找到Outlook的VBA再回覆你
作者: zxcxz    時間: 2014-2-16 08:37

回復  zxcxz
找到Outlook的VBA再回覆你
GBKEE 發表於 2014-2-16 06:37

5#附上的code就是從excel開啟outlook發送電郵的vba碼
但關鍵部份是怎樣在 18. 行上插入從excel cell復製出來以圖片格式貼上
多請賜教！
作者: apolloooo    時間: 2014-2-19 16:59

解決了，謝謝大大的支持。
作者: vavashop    時間: 2015-5-13 23:30

大大 如果是 篩選出來的結果 不知道是a多少到多少怎麼辦

有其他方法嗎？



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)