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