sub pictopz()
dim cell as range, fd, t, w as byte, h as byte
selection.clearcomments
if selection(1) = "" then msgbox "不能選擇空白區。", 64, "提示": exit sub
on error resume next '錯誤繼續
on error goto err
if fd.show = -1 then
t = fd.selecteditems(1) '選擇之後就記錄這個資料夾名稱
else
exit sub '否則就退出程式
end if
if w < 1 or h < 1 then w = 3.39: h = 2.09
if w > 15 or h > 15 then msgbox "原則上你的可以顯示這麼大，" & chr(10) & "不過有必要嗎？請重新輸入1-15之間的數", 64, "提示": exit sub
msgbox "未找到同名的jpg！", 64, "提示"
end sub
VBA 複製單元格批註
只複製單元格的批註該怎麼操作呢？如下 public sub 複製單元格批註 dim range1 as range dim range2 as range 清除g列 columns g g clear set range1 range a1 b4 指定要複製的單元格區域 set range2 ran...
Word插入檔案 VBA 合併 檔案
1 word中有的時候，需要合併多個檔案。word本身提供了非常簡單的方法。只需使用選單 插入 檔案 命令即可完成該操作。vba selection.range.insertfile afilename,false,false,false 2 可是會遇到一點問題 插入的檔案，為啥不頁首資訊丟失了。如...
Word插入檔案 VBA 合併 檔案
1 word中有的時候，需要合併多個檔案。word本身提供了非常簡單的方法。只需使用選單 插入 檔案 命令即可完成該操作。vba selection.range.insertfile afilename,false,false,false 2 可是會遇到一點問題 插入的檔案，為啥不頁首資訊丟失了。如...