Yardım butonların sabit kalmaması

incsoft · 13 Ara 2023

Autosize false de olsa true de olsa aynı arkadaşlar.Bunların ebatların sabit kalması ve yerlerinin değişmemesi için ne yapabilirim?

musapekel · 13 Ara 2023

incsoft' Alıntı:
Autosize false de olsa true de olsa aynı arkadaşlar.Bunların ebatların sabit kalması ve yerlerinin değişmemesi için ne yapabilirim?

Ekli dosyayı görüntüle 3718

Kod:

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim btn As Object
    
    ' Çalışma sayfasını belirle
    Set ws = ThisWorkbook.Sheets("Sayfa2") ' Sayfa adını kendi sayfanıza göre değiştirin
    
    ' CommandButton'u belirle
    Set btn = ws.Shapes("CommandButton1453") ' CommandButton adını kendi buton adınıza göre değiştirin
    
    ' CommandButton'un boyutlarını ve konumunu sabit tut
    With btn
        .LockAspectRatio = msoTrue
        .Width = 100
        .Height = 30
        .Top = 10
        .Left = 10
    End With
End Sub

incsoft · 14 Ara 2023

musapekel' Alıntı:

Kod:

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim btn As Object
   
    ' Çalışma sayfasını belirle
    Set ws = ThisWorkbook.Sheets("Sayfa2") ' Sayfa adını kendi sayfanıza göre değiştirin
   
    ' CommandButton'u belirle
    Set btn = ws.Shapes("CommandButton1453") ' CommandButton adını kendi buton adınıza göre değiştirin
   
    ' CommandButton'un boyutlarını ve konumunu sabit tut
    With btn
        .LockAspectRatio = msoTrue
        .Width = 100
        .Height = 30
        .Top = 10
        .Left = 10
    End With
End Sub

sayfa numarası standart değil ama hocam Sayfa2 şeklinde.. Hangi sayfa aktif se onun ismini alabilirmi? Ben genelde aylık üretim takibi için yapıyorum ve 1......31 arasında değişiyor...