添加用戶窗體

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

• 然后在拉出一個(gè)按鈕
  

• 更按鈕的標(biāo)題
  

• 雙擊按鈕進(jìn)入按鈕的點(diǎn)擊功能編輯
  

• 打開A文件修改代碼為

Sub 第一個(gè)插件()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ù)自己桌面的路徑稍作修改即可,然后測試一下就會(huì)發(fā)現(xiàn)我們選中的對(duì)象已經(jīng)導(dǎo)出到桌面啦

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

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

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

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

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

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

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

X軸橫向分辨率

Y軸縱向分辨率

抗鋸齒模式

抖動(dòng)

是否有透明度

顏色配置文件

多圖層

圖片壓縮率

導(dǎo)出選項(xiàng)

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

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

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

總結(jié)

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

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