周大偉

回復 12# Hsieh
Hsieh版主,
今天再到這論壇, 看到這篇文章, 下載了希望日後能從中學習,
有一問題想請教版大, 當從下拉中選定編號, 便出現執行錯誤449, 程式中有黃色錯誤處, 大大, 到底是何問題, 請教..感恩..
a.rar (580.29 KB)

下載次數: 6

2012-9-25 21:53

Hsieh

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

周大偉

回復 22# Hsieh

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

Hsieh

回復 23# 周大偉


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

周大偉

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

下載次數: 11

2012-9-25 23:39

[

317

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

Hsieh

回復 26# 317


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

GBKEE

回復 25# 周大偉

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

複製代碼

周大偉

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

Hsieh

回復 29# 周大偉

1. Dim PicAr() As Picture '圖片陣列
   
2. Dim fs$
   
3. Private Const r = 4 '資料起始列號
   
4. 
   
5. Private Sub ComboBox1_Change() '選擇編號事件
   
6. 
   
7. Dim k%, i%
   
8. 
   
9. With ComboBox1
   
10. 
    
11. k = .ListIndex '下拉選單選取位置
    
12. 
    
13. For i = 1 To 11
    
14. 
    
15.    Controls("TextBox" & i).Text = IIf(i = 11, .List(k, i) & .List(k, i + 1), .List(k, i)) '文字方塊寫入
    
16. 
    
17. Next
    
18. 
    
19. End With
    
20. 
    
21. PicAr(k).CopyPicture '複製圖片
    
22. 
    
23. With Sheet1.ChartObjects.Add(1, 1, PicAr(k).Width, PicAr(k).Height) '新增圖表
    
24. 
    
25. .Chart.Paste '貼上圖片
    
26. 
    
27. .Chart.Export fs '以圖表匯成圖片
    
28. 
    
29. Image1.Picture = LoadPicture(fs) '載入圖片
    
30. 
    
31. .Delete '刪除圖表
    
32. 
    
33. End With
    
34. 
    
35. End Sub
    
36. 
    
37. Private Sub UserForm_Initialize() '表單初始化
    
38.     Dim Pic As Picture
    
39.     fs = CurDir & "\temp.jpg"  '*** 這裡修改為當下的目錄 ( CurDir )為暫存圖片目錄位置 ***
    
40.     With Sheet1
    
41.         ReDim PicAr(.Pictures.Count)
    
42.         For Each Pic In .Pictures '將每個圖片置入陣列
    
43.             Set PicAr(Pic.TopLeftCell.Row - r) = Pic
    
44.         Next
    
45.         ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '下拉清單內容
    
46.     End With
    
47.     Image1.PictureSizeMode = fmPictureSizeModeStretch '圖片載入的型態
    
48. End Sub
    
49. 
    
50. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '關閉表單
    
51. 
    
52. If Dir(fs) <> "" Then Kill fs '刪除暫存圖片檔案
    
53. 
    
54. End Sub

複製代碼