• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım butonların sabit kalmaması

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
232
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
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?

1702466572679.png
 

musapekel

Yeni Üye
Katılım
10 Ara 2023
Mesajlar
9
En iyi yanıt
0
Puanları
3
Yaş
24
Konum
istanbul
Ad Soyad
musa pekel
Office Vers.
2016 Tr
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

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
232
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
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...
 
Üst Alt