2 שאלות ב vba אקסל

[מיכל Design]

1. בניתי טופס ואני רוצה שהגודל שלו יהיה בכל המסך. [הגודל המקורי של הטופס הוא פחות מכל המסך, אבל אני רוצה שהוא יתרחב לפי המסך שהוא יעלה עליו] יש אפשרות כזאת? איך עושים את זה?
2. אני רוצה לבטל את האיקס האדום ושיהיה אפשרות יציאה רק דרך כפתור בתוך הטופס. יש אפשרות לבטל את זה?
[עשיתי חיפוש בפורום אבל לא מצאתי על אקסל רק על אקסס]
תודה רבה

 

[FullTime]

1. בניתי טופס ואני רוצה שהגודל שלו יהיה בכל המסך. [הגודל המקורי של הטופס הוא פחות מכל המסך, אבל אני רוצה שהוא יתרחב לפי המסך שהוא יעלה עליו] יש אפשרות כזאת? איך עושים את זה?

Option Explicit

Private ScrWidth&, ScrHeight&
Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Private Sub UserForm_Initialize()
Dim Factor As Single
Factor = 0.75 'adjust to suit
Me.Width = GetSystemMetrics32(0) * Factor '< in pixels
Me.Height = GetSystemMetrics32(1) * Factor
End Sub

השורה הראשונה כנראה קיימת, אז תשמיט אם כן.

מקור

2. אני רוצה לבטל את האיקס האדום ושיהיה אפשרות יציאה רק דרך כפתור בתוך הטופס. יש אפשרות לבטל את זה?

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

        If CloseMode = 0 Then Cancel = True

End Sub

מקור

 

[מיכל Design]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

        If CloseMode = 0 Then Cancel = True

End Sub

מקור

תודה רבה עובד מעולה
אמנם מראה את הסימן אבל לא עושה כלום
[יש אפשרות שגם לא יראה את הסימן?]

Option Explicit

Private ScrWidth&, ScrHeight&
Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Private Sub UserForm_Initialize()
Dim Factor As Single
Factor = 0.75 'adjust to suit
Me.Width = GetSystemMetrics32(0) * Factor '< in pixels
Me.Height = GetSystemMetrics32(1) * Factor
End Sub

השורה הראשונה כנראה קיימת, אז תשמיט אם כן.

מקור

זה לא עובד
כי לי יש 64 סיביות וזה ל 32 סיביות
כך הבנתי מההודעה של השגיאה
הבנתי נכון?
מה עושים?

ואיזה שורה ראשונה למחוק?

שוב תודה על הכל

 

[מיכל Design]

תודה רבה עובד מעולה
אמנם מראה את הסימן אבל לא עושה כלום
[יש אפשרות שגם לא יראה את הסימן?]



זה לא עובד
כי לי יש 64 סיביות וזה ל 32 סיביות
כך הבנתי מההודעה של השגיאה
הבנתי נכון?
מה עושים?

ואיזה שורה ראשונה למחוק?

שוב תודה על הכל

Option Explicit

Private ScrWidth&, ScrHeight&
Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Private Sub UserForm_Initialize()
Dim Factor As Single
Factor = 0.75 'adjust to suit
Me.Width = GetSystemMetrics32(0) * Factor '< in pixels
Me.Height = GetSystemMetrics32(1) * Factor
End Sub

השורה הראשונה כנראה קיימת, אז תשמיט אם כן.

מקור

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

        If CloseMode = 0 Then Cancel = True

End Sub

מקור

שוב תודה
הצלחתי שיעבוד לי
אבל הוא מגדיל את המסך ולא משנה את מיקום הלחצנים יש אופציה גם שיזיז אותם לפי ההגדלה?

 

[FullTime]

אבל הוא מגדיל את המסך ולא משנה את מיקום הלחצנים יש אופציה גם שיזיז אותם לפי ההגדלה?

בטח שאינו משנה את מיקום הלחצנים.
תוכל להכניס בנוסף שורות כאלו שישחקו עם מיקום הלחצנים.
זה למרכז לחצן לאמצע המסך של הטופס
CommandButton1.Left = UserForm1.Width / 2 - CommandButton1.Width / 2

וזה למקם לחצן בתחתית הטופס
CommandButton1.Top = UserForm1.Height - CommandButton1.Height - 30

 

[מיכל Design]

טעות. סליחה