Board logo

標題: 請問如何用VB將EXCEL裡的圖片匯出 [打印本頁]
作者: ookook520    時間: 2011-10-25 17:37     標題: 請問如何用VB將EXCEL裡的圖片匯出

請各位大大幫忙
請問如何用VB將EXCEL裡的圖片匯出

感激萬分
作者: Hsieh    時間: 2011-10-25 18:29

回復 1# ookook520
http://chijanzen.net/wp/?p=289
作者: ookook520    時間: 2011-10-26 02:01

感謝大大
在下不太了解您所提供之方法
但有參考另一種
Sub ExportNumChart()

Const FName As String = "D:\My Documents\My Pics\Numbers.jpg"
Dim pic_rng As Range
Dim ShTemp As Worksheet
Dim ChTemp As Chart
Dim PicTemp As Picture

Application.ScreenUpdating = False

Set pic_rng = Worksheets("Numbers").Range("B1:F25")
Set ShTemp = Worksheets.Add

Charts.Add

ActiveChart.Location Where:=xlLocationAsObject, Name:=ShTemp.Name
Set ChTemp = ActiveChart
pic_rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ChTemp.Paste

Set PicTemp = Selection

With ChTemp.Parent
.Width = PicTemp.Width + 8
.Height = PicTemp.Height + 8
End With

ChTemp.Export Filename:="D:\My Documents\My Pics\Numbers.jpg", FilterName:="jpg"

Application.DisplayAlerts = False

ShTemp.Delete

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

----------------

可以達成輸出圖片
但是輸出圖都會有細細的白邊框 好像是圖表工作區
不曉得能否將此框消除或是黑色


感謝大大
作者: luhpro    時間: 2011-10-26 20:15

但是輸出圖都會有細細的白邊框 好像是圖表工作區
不曉得能否將此框消除或是黑色 ...
ookook520 發表於 2011-10-26 02:01

會出現白色邊框是因為程式中有做出此邊框,
若不想要出現此邊框只要把底下兩行程式中的 +8 拿掉即可 :
.Width = PicTemp.Width + 8
.Height = PicTemp.Height + 8
改成
.Width = PicTemp.Width
.Height = PicTemp.Height



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