CsJHUN
Active Member
- Joined
- Jan 13, 2015
- Messages
- 360
- Office Version
- 365
- 2021
- 2019
- Platform
- Windows
- Mobile
Hello guys,
It was a very long time ago to not asking help with VBA.
I face the problem described below:
I made userform for my company to test our employee knowledge. 1 question on label.caption , 2 or 3 optionbutton with possible answers, and 1 imgbox w/ or w/o image loaded depending on the questions. The questions are written in excel sheet, 1 column for question and 3 more for possible answers (and there was 4 more for another language), and one for the picture link (the picture name).
The problem is I - let me call this - develop on a 13" company laptop but the users use the 'program' on 17"+ possible touchscreen i made a resize macro which i use often for different forms. Here it is:
When using the above code when zoom is setted (over 100%, not tested below that) the optionbuttons.caption is not warping words long text, but the wordwarp option is enabled but all good on 100% zoom.
Do you have ideas how to fix that any workarounds, what/why should cause this phenomenon?
It was a very long time ago to not asking help with VBA.
I face the problem described below:
I made userform for my company to test our employee knowledge. 1 question on label.caption , 2 or 3 optionbutton with possible answers, and 1 imgbox w/ or w/o image loaded depending on the questions. The questions are written in excel sheet, 1 column for question and 3 more for possible answers (and there was 4 more for another language), and one for the picture link (the picture name).
The problem is I - let me call this - develop on a 13" company laptop but the users use the 'program' on 17"+ possible touchscreen i made a resize macro which i use often for different forms. Here it is:
VBA Code:
Private Sub resize_me()
uf_alap_magas = Me.Height
uf_alap_szel = Me.Width
ablak_magas = Application.Height - 10
ablak_szel = Application.Width - 10
arany_magas = ablak_magas / uf_alap_magas
arany_szel = ablak_szel / uf_alap_szel
Me.Zoom = arany_magas * 100 + 10
Me.Height = ablak_magas + 10
Me.Width = ablak_szel + 10
Me.Top = 0
Me.Left = 0
End Sub
Do you have ideas how to fix that any workarounds, what/why should cause this phenomenon?
Last edited by a moderator: