麻辣家族討論版版 » Excel程式區 » 繪圖的相關問題

返回列表下一主題上一主題發帖

[發問] 繪圖的相關問題

小學生 Rank: 1

帖子: 14
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-11-19
最後登錄: 2019-7-1

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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
謝謝大家

樓主熱帖

收藏

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-12-10 10:19 | 只看該作者

回復 1# caponewilliam
2. 調整完 width , height後再export到檔案?

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

小學生 Rank: 1

帖子: 14
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-11-19
最後登錄: 2019-7-1

3^#

發表於 2015-12-10 20:42 | 只看該作者

回復 2# stillfish00

其實小弟我對兩者步驟的差異還沒有太多了解
不過我晚點可以來測試一下再和大大報告
謝謝

小學生 Rank: 1

帖子: 14
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-11-19
最後登錄: 2019-7-1

4^#

發表於 2015-12-10 23:10 | 只看該作者

回復 2# stillfish00

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

另外不知道我的第一個疑問有沒有辦法解決呢?

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2015-12-11 09:27 | 只看該作者

回復 4# caponewilliam
沒說清楚不知道你有沒有誤會，我指的是改成這樣的順序

.ChartObjects(1).Width = Image1.Width
.ChartObjects(1).Height = Image1.Height
.ChartObjects(1).Chart.Export filename:=TempFile, filtername:="GIF"

複製代碼

沒有要你調整Image1控制項的長寬

1我不知道哦

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

小學生 Rank: 1

帖子: 14
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-11-19
最後登錄: 2019-7-1

6^#

發表於 2015-12-12 14:19 | 只看該作者

回復 5# stillfish00

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

靜思自在 : 小事不做、大事難成。

返回列表下一主題上一主題