如何把儲存格 A1:D10 的內容變成相片另存成Jpg檔

apolloooo

如何把儲存格 A1:D10 的內容變成相片另存成Jpg檔

GBKEE

回復 1# apolloooo
沒有說明A1:D10 的內容,不知如何回答.

apolloooo

回復 2# GBKEE


假如內容都是123。
我要把 A1:D10 的範圍，copy出來轉存jpg

GBKEE

回復 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

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

以下是發送電郵碼

1. Sub SendEmail()
   
2. 
   
3. Dim FileNameZip, FileNameXls
   
4. Dim oApp As Object, OutApp As Object, OutMail As Object
   
5. FileNameXls = Detail_Filename
   
6. 
   
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 = "abc@email.com"
    
14.             .CC = "cc@email.com"
    
15.             .BCC = ""
    
16.             .Subject = "Test add excel cell image to email"
    
17.             .Body = "Dear All," & vbNewLine & vbNewLine
    
18.             '請問怎樣將圖貼在這裡？ & "Regards!"
    
19. 
    
20.             .Attachments.Add AttachFile
    
21.             .Display
    
22. End With
    
23.         On Error GoTo 0
    
24. End Sub

複製代碼

GBKEE

回復 5# zxcxz
找到Outlook的VBA再回覆你

zxcxz

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

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

apolloooo

解決了，謝謝大大的支持。

vavashop

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

有其他方法嗎？