Makro İle Sayfa Ekle İletişim Kutusunu Çağırmak

[hsayar]

Sub SayfaEkle()
SifreAc  
Dim Msg, Style, Title
  Msg = "Sayfa Eklenecektir"
  Style = vbYes
  Title = "YeniMenü"
  Response = MsgBox(Msg, Style, Title)
'.............................
SifreKapa
End Sub

Kodları arasıa resimdeki pencereyi nasıl çağırabilirim

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

Application.Dialogs(119).Show

veya

Application.Dialogs(302).Show

veya

Application.Dialogs(354).Show

 

[hsayar]

  Application.Dialogs(354).Show    'Sayfa Ekleme
  Application.Dialogs(302).Show    'Sayfa Ekleme
  Application.Dialogs(119).Show   'Sadece Çalışma Kitabı ve Xltler

Teşekkür ederim hocam 354 ve 302 arasında fark göremedim neden iki kod yazmışlar ki?

  Application.Dialogs([B]?[/B]).Show   [B]'Sadece Çalışma Kitabı/Grafik/Xltler[/B]

göstereni varmı bu diolag penceresinin