PKKO

回復 27# bobomi


    大大您好,前一篇的問題我都找到答案了,在SaveSetting ThisWorkbook.Name, "SSS"=>全部的USERFORM都指向同一個名稱即可n個表單都相同大小
另外還有一個問題(抱歉,問題很多...)

就是縮小按鈕會出現錯誤,不能縮小
我目前作法是將縮小按鈕沒得點,有辦法讓他不會出現錯誤,然後縮小到工作列,等到要用的時候再點一下工作列的檔案就會自動跳出原本大小的表單嗎?

1. ocx.Left = ocx_xy(0) * Rw
   
2. ocx.Top = ocx_xy(1) * Rh
   
3. ocx.Width = ocx_xy(2) * Rw
   
4. ocx.Height = ocx_xy(3) * Rh

複製代碼

錯誤發生在上方的height那邊

bobomi

(1) 文字原本顯示四個字,只有出現三個字,現在也可自行靠拉寬一點就顯示出來正確比例,所以四個字都可以顯示
     ->  我預設就是文字只有拉高才縮放, 拉寬則不縮放,  現在已經改成拉寬也會縮放
(2) 修正原作工作列看不到圖示

1.zip (48.15 KB)

下載次數: 8

2015-5-23 19:45

PKKO

回復 32# bobomi


    大大,新版的使用上怪怪的

在切換不同表單的時候
下方程式碼的地方會無法執行

1. Private Sub UserForm_Activate()
   
2.   modForm.UserForm_SetButton Me
   
3. End Sub

複製代碼

bobomi

1.zip (50.81 KB)

下載次數: 7

2015-5-24 22:01

目前發現有一個問題
例如:
用滑鼠典擊  UserForm  使其最大化後
滑鼠移到工具列去點擊那個 EXCEL 圖示
EXCEL 整各會匯縮小到工具列 (這部分是正常的 )
再次點擊那個 EXCEL 圖示 , EXCEL 就會還原變大 (這部分也是正常的 )
問題來了
當 EXCEL 還原變大時
EXCEL 會多事的把  處於 最大化的 UserForm  自動調回一搬大小

這個暫時解決不了

s13030029

回復 34# bobomi
請問目前我的userform用你的程式可以讓使用者自由縮放，但是要怎樣才能讓 image 物件也能跟著縮放???

詳細內容在這裡

lichang

謝謝大大們的教導，解決了到2021年使用win10 縮放比例把表格滿到螢幕外面的問題，謝謝喔!!