Board logo

標題: 點下拉清單放大150倍問題 [打印本頁]

作者: gca78000    時間: 2014-11-26 19:20     標題: 點下拉清單放大150倍問題

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

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

ActiveWindow.Zoom = 100
作者: luhpro    時間: 2014-12-2 21:36

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

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

依你的需求寫的 :
[attach]19687[/attach]

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

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

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




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)