Board logo

標題: [發問] 繪圖的相關問題 [打印本頁]

作者: caponewilliam    時間: 2015-12-9 11:31     標題: 繪圖的相關問題

各位大大好
小弟想請教2個問題
1.
相信有在excel畫圖經驗的人都知道 如果游標落在任一個非空白儲存格時  在執行繪圖時 exel會自己抓取一些數據就直接畫圖了
但這有時都不是我們想要的結果
因此 如果先讓游標落在空白儲存格時 點選"新增圖表"功能時就是一張空白的圖表
這時候繪出來的圖就一定會是我們想要的數據
請問有沒有什麼方法是可以讓我在VBA執行繪圖時避免自動選取數列的功能呢?
因為excel內建這種功能有時真的會造成別人的誤解

2.
目前我將工作表內的圖也一併呈現在userform上面
但是在userform上面的圖片解析度與excel上的差非常多
請問這有什麼辦法解決嗎?
關於我撰寫在userform上面顯示圖片的程式碼如下:

Dim TempFile As String, fso, fldr
Dim imageW, imageH
Set fso = CreateObject("Scripting.FileSystemObject")
TempFile = "C:\" & Replace(fso.GetTempName, "tmp", "GIF")
.ChartObjects(1).Chart.Export filename:=TempFile, filtername:="GIF"
.ChartObjects(1).Width = Image1.Width
.ChartObjects(1).Height = Image1.Height
Image1.Picture = LoadPicture(TempFile)
Image1.PictureSizeMode = fmPictureSizeModeStretch
謝謝大家
作者: stillfish00    時間: 2015-12-10 10:19

回復 1# caponewilliam
2.  調整完 width , height後再export到檔案?
作者: caponewilliam    時間: 2015-12-10 20:42

回復 2# stillfish00

其實小弟我對兩者步驟的差異還沒有太多了解
不過我晚點可以來測試一下 再和大大報告
謝謝
作者: caponewilliam    時間: 2015-12-10 23:10

回復 2# stillfish00

向大大報告一下剛剛測試過後的結果
若使用fmPictureSizeModeStretch的話 解析度就會降低了
如果僅調整圖案的長寬 解析度可以和原稿一樣
只是圖片就沒辦法填滿整個圖片窗格 不過這樣我也夠用了

另外不知道我的第一個疑問 有沒有辦法解決呢?
作者: stillfish00    時間: 2015-12-11 09:27

回復 4# caponewilliam
沒說清楚不知道你有沒有誤會,我指的是改成這樣的順序
  1. .ChartObjects(1).Width = Image1.Width
  2. .ChartObjects(1).Height = Image1.Height
  3. .ChartObjects(1).Chart.Export filename:=TempFile, filtername:="GIF"
複製代碼
沒有要你調整Image1控制項的長寬

1我不知道哦
作者: caponewilliam    時間: 2015-12-12 14:19

回復 5# stillfish00

謝謝大大
不過我用您的方式測試過了 解析度還是沒有跟excel上呈現的一樣好耶




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