返回列表 上一主題 發帖

請問如何用VB將EXCEL裡的圖片匯出

ookook520

帖子
16 
主題
6 
精華
0 
積分
23 
點名
0  
作業系統
XP 
軟體版本
20 
閱讀權限
10 
性別
女 
註冊時間
2011-5-27 
最後登錄
2012-6-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-25 17:37 | 只看該作者

請問如何用VB將EXCEL裡的圖片匯出

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

感激萬分
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
244  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-10 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-10-25 18:29 | 只看該作者
回復 1# ookook520
http://chijanzen.net/wp/?p=289
學海無涯_不恥下問

TOP

ookook520

帖子
16 
主題
6 
精華
0 
積分
23 
點名
0  
作業系統
XP 
軟體版本
20 
閱讀權限
10 
性別
女 
註冊時間
2011-5-27 
最後登錄
2012-6-27 
3#
發表於 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

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

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


感謝大大

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
14  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-6 
4#
發表於 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

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題