返回列表 上一主題 發帖

點下拉清單放大150倍問題

點下拉清單放大150倍問題

請問各位板大如一開始點下拉清單就會放大150倍而選擇完就會回復正常VBA要如何寫請指教謝謝

Sub 下拉清單8_Change()
ActiveWindow.Zoom = 150
End Sub

ActiveWindow.Zoom = 100

123.rar (7.11 KB)

請問各位板大如一開始點下拉清單就會放大150倍而選擇完就會回復正常VBA要如何寫請指教謝謝

Sub 下拉清單 ...
gca78000 發表於 2014-11-26 19:20

依你的需求寫的 :
123-a.zip (8.38 KB)

程式功能為 :
當滑鼠按下下拉式選單按鈕視窗立即放大至150% ,
但一旦放開滑鼠左鍵就會立即還原成 100% 的大小.

所以實際操作時 :
須先移到下拉式選單按鈕上 -> 按著滑鼠左鍵不放 -> 此時視窗會放大
-> 滑鼠游標移到放大後要選的選項上 -> 放開左鍵 -> 這時已選好項目且視窗也會縮回原來大小.

TOP

回復 2# luhpro
原來如此謝謝uhpro大大指導小弟受教了

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題