添加用戶窗體

• 首先在我們的gms上右擊插入用戶窗體
  

• 然后在拉出一個按鈕
  

• 更按鈕的標題
  

• 雙擊按鈕進入按鈕的點擊功能編輯
  

• 打開A文件修改代碼為

Sub 第一個插件()UserForm1.Show End Sub

• 修改 CommandButton1_Click的代碼

Private Sub CommandButton1_Click()Set expflt = ActiveDocument.ExportBitmap("F:\Users\Administrator\Desktop\" & CorelDRAW.CorelScriptTools.FormatTime(VBA.DateTime.Now, "HH-mm-ss") & ".jpg", cdrJPEG, cdrSelection, cdrCMYKColorImage, 0, 0, 300, 300, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)expflt.Finish End Sub

• 測試
  中間F:\Users\Administrator\Desktop\這一串只是我桌面的路徑而已,大家可以根據自己桌面的路徑稍作修改即可,然后測試一下就會發現我們選中的對象已經導出到桌面啦

• 代碼釋義
  Private 這個是雙擊按鈕的時候自動添加的,是私有的意思，表示此功能只能在當前窗體內使用，不能被外部使用
  Set 是給一個量賦值,一般來說非VB常用的變量類型就要用到這個set
  expflt 這個是可以隨意命名的,里面是一個導出篩選器,因為他的類型不是VB常用類型,所以賦值的時候用到了set
  ExportBitmap當前文檔的導出功能,后面的括號里面帶了16個參數,可以看到這個參數是非常之多,這個參數是在使用的時候就要寫進去的.這里分別講一下16個參數是什么

文件名,要從盤符開始寫起

導出類型, 是CDR確定好的枚舉類里面的,我們是導出JPG所以在里面選擇cdrJPEG

導出的范圍.可以看到枚舉類里面有三種,第一種默認的是當前頁面,我們選cdrSelection,就是當前選擇了的形狀

導出的顏色模式,我們先CMYK

導出的寬度,可以輸入0讓它自動

導出的高度,可以輸入0讓它自動

X軸橫向分辨率

Y軸縱向分辨率

抗鋸齒模式

抖動

是否有透明度

顏色配置文件

多圖層

圖片壓縮率

導出選項

指定導出區域,默認為nothing

Finish導出篩選器里面的一個導出功能,這一句才是導出,前面的所有只是設置篩選器而已

• 其實下面這些可以不用看,我只是為了讓各一個圖片不重名所以在導出的命名后面加了一個精確到秒的時間而已
  CorelScriptTools這里再講一下我這里用了一個CorelScriptTools這個類,這是自帶的一個工具箱
  FormatTime這個就是工具箱里面的一個功能:把時間格式化為我們想要的樣式
  VBA.DateTime.Now VBA是VBA的總類,datetime是時間類,now是當前時間,所以這個就是返回的當前時間
  "HH-mm-ss"這個是我所希望它展現的時間的格式,因為文件名里面不能出現某些字符,所以在設置格式的時候要注意

總結

以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(十一)弹窗界面和一键导出图片的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。