一個查詢的表單,

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

22^#

發表於 2012-9-25 22:31 | 只看該作者

回復 21# 周大偉
沒注意到2003以外版本，圖表新增時，不可忽略left與top引數
With Sheet1.ChartObjects.Add(1, 1, PicAr(k).Width, PicAr(k).Height)

學海無涯_不恥下問

周大偉

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

23^#

發表於 2012-9-25 22:56 | 只看該作者

回復 22# Hsieh

謝謝大大指導, 把程式碼換上, 問題便出現下列情況,
執行錯誤階段76, Chart.Export fs '以圖表匯成圖片
請大大教導..感恩..

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

24^#

發表於 2012-9-25 23:04 | 只看該作者

回復 23# 周大偉

可能是
Private Const fs = "E:\temp.jpg" '暫存圖片目錄位置
這個目錄位置不存在

學海無涯_不恥下問

周大偉

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

25^#

發表於 2012-9-25 23:38 | 只看該作者

本帖最後由周大偉於 2012-9-25 23:40 編輯

回復 24# Hsieh
大大, 就煩勞了, 但有一個現像, 當選定編號後, 便出現, 執行錯誤階段76, Chart.Export fs '以圖表匯成圖片, 但圖片却貼上工作表1, a1位置, 現上傳附件, 請大大教導,

表單圖表查詢.rar (648.85 KB) [

317

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

26^#

發表於 2012-9-27 23:54 | 只看該作者

回復 24# Hsieh
hsieh版大, 安好,
這個目錄位置不存在, 這到底是指, 因小妹理解, 作業系統中一般辦公室軟件都會有圖像檔, 而小妹也能運用上述程式, 而大大回應上述樓主是指這個目錄位置不存在, 希望大大能解說一下, 同時在這情況下, 可有方辦彌補..謝謝!!

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

27^#

發表於 2012-9-28 07:16 | 只看該作者

回復 26# 317

可能是電腦中沒有E槽分割吧

學海無涯_不恥下問

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

28^#

發表於 2012-9-28 16:40 | 只看該作者

回復 25# 周大偉

Dim PicAr() As Picture '圖片陣列
Dim fs As String ' *** = "E:\temp.jpg" '暫存圖片目錄位置
Private Const r = 4 '資料起始列號
Private Sub UserForm_Initialize() '表單初始化
Dim Pic As Picture
fs = CurDir & "\temp.jpg" '*** 這裡修改為當下的目錄 ( CurDir )為暫存圖片目錄位置 ***
With Sheet1
ReDim PicAr(.Pictures.Count)
For Each Pic In .Pictures '將每個圖片置入陣列
Set PicAr(Pic.TopLeftCell.Row - r) = Pic
Next
ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '下拉清單內容
End With
Image1.PictureSizeMode = fmPictureSizeModeStretch '圖片載入的型態
End Sub

複製代碼

周大偉

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

29^#

發表於 2012-9-28 19:10 | 只看該作者

回復 28# GBKEE
先謝謝大大,
fs = CurDir & "\temp.jpg" '*** 這裡修改為當下的目錄 ( CurDir )為暫存圖片目錄位置 ***
這句的意思是指目錄位置, 是指, 如c盤d盤, 或檔案路徑, 大大可否指導, 謝謝!!

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

30^#

發表於 2012-9-29 09:30 | 只看該作者

回復 29# 周大偉

Dim PicAr() As Picture '圖片陣列
Dim fs$
Private Const r = 4 '資料起始列號
Private Sub ComboBox1_Change() '選擇編號事件
Dim k%, i%
With ComboBox1
k = .ListIndex '下拉選單選取位置
For i = 1 To 11
Controls("TextBox" & i).Text = IIf(i = 11, .List(k, i) & .List(k, i + 1), .List(k, i)) '文字方塊寫入
Next
End With
PicAr(k).CopyPicture '複製圖片
With Sheet1.ChartObjects.Add(1, 1, PicAr(k).Width, PicAr(k).Height) '新增圖表
.Chart.Paste '貼上圖片
.Chart.Export fs '以圖表匯成圖片
Image1.Picture = LoadPicture(fs) '載入圖片
.Delete '刪除圖表
End With
End Sub
Private Sub UserForm_Initialize() '表單初始化
Dim Pic As Picture
fs = CurDir & "\temp.jpg" '*** 這裡修改為當下的目錄 ( CurDir )為暫存圖片目錄位置 ***
With Sheet1
ReDim PicAr(.Pictures.Count)
For Each Pic In .Pictures '將每個圖片置入陣列
Set PicAr(Pic.TopLeftCell.Row - r) = Pic
Next
ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '下拉清單內容
End With
Image1.PictureSizeMode = fmPictureSizeModeStretch '圖片載入的型態
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '關閉表單
If Dir(fs) <> "" Then Kill fs '刪除暫存圖片檔案
End Sub

複製代碼

學海無涯_不恥下問