Sub exportPic()
For K = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets(1).Cells(K, 1).CopyPicture
Set CHT = ActiveSheet.ChartObjects.Add(0, 0, Cells(K, 1).Width, Cells(K, 1).Height).Chart
With CHT
.Paste
.Export "d:\" & Cells(K, 1) & ".JPG"
.Parent.Delete
End With
Next K
set CHT=NOTHING
End Sub
用這個代碼輸出的圖片是空白的，沒有單元格內的文字
uj5u.com熱心網友回復：
Excel不存在這樣的功能啊，不是想另存成什么就都能存的uj5u.com熱心網友回復：
圖片是圖片，文字是文字。excel里面看上去圖片上有字也是文字疊加在圖片上顯示的結果。你的命令僅僅是保存了圖片。如果你要把文字輸出到圖片上，你必須使用Picture物件來處理這張圖片，列印上文字以后再保存。
uj5u.com熱心網友回復：
一到畢業季，這種毫無實際用途的功能需求問題就冒出來了。覺得吧，中學老師無所謂，大學工科老師應該至少要有三年的企業作業經驗才能執教。
uj5u.com熱心網友回復：
paste之后加一句DoEvents:
Sub exportPic()
Dim K As Long
For K = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets(1).Cells(K, 1).CopyPicture
Dim CHT As Chart
Set CHT = ActiveSheet.ChartObjects.Add(0, 0, Cells(K, 1).Width, Cells(K, 1).Height).Chart
With CHT
.Paste
DoEvents
.Export "d:\" & Cells(K, 1) & ".JPG"
.Parent.Delete
End With
Next K
Set CHT = Nothing
End Sub
運行示例:
uj5u.com熱心網友回復：
學到新知識了。盡管目前沒啥用處，但是厚積在平時薄發在關鍵。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/33382.html
標籤：VBA