添加用戶窗體

• 首先在我們的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\這一串只是我桌面的路徑而已,大家可以根據(jù)自己桌面的路徑稍作修改即可,然后測試一下就會發(fā)現(xiàn)我們選中的對象已經(jīng)導(dǎo)出到桌面啦

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

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

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

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

導(dǎo)出的顏色模式,我們先CMYK

導(dǎo)出的寬度,可以輸入0讓它自動

導(dǎo)出的高度,可以輸入0讓它自動

X軸橫向分辨率

Y軸縱向分辨率

抗鋸齒模式

抖動

是否有透明度

顏色配置文件

多圖層

圖片壓縮率

導(dǎo)出選項

指定導(dǎo)出區(qū)域,默認為nothing

Finish導(dǎo)出篩選器里面的一個導(dǎo)出功能,這一句才是導(dǎo)出,前面的所有只是設(shè)置篩選器而已

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。