Skip to main content

AccessTr.neT


Excel Fullscreen Maximized

Excel Fullscreen Maximized

Çözüldü #1
Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
  Set appExcel = CreateObject("Excel.Application")
  Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi


burada excel'in fullscreen (maximize) gelmesini nasıl sağlayabililriz
Cevapla
#2
(21/12/2019 14:48)zaferlacin Adlı Kullanıcıdan Alıntı: Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
  Set appExcel = CreateObject("Excel.Application")
  Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi
myWorkbook .DoCmd.RunCommand acCmdAppMaximize kodunu ekler misiniz?
Cevapla
#3
(21/12/2019 14:57)berduş Adlı Kullanıcıdan Alıntı:
(21/12/2019 14:48)zaferlacin Adlı Kullanıcıdan Alıntı: Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
  Set appExcel = CreateObject("Excel.Application")
  Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi
myWorkbook .DoCmd.RunCommand acCmdAppMaximize kodunu ekler misiniz?
object dosent support this propery or method

hatası geliyor hocam
Cevapla
#4
Kodu nereye eklediniz?
Hata benim dediğim kodda mi çıktı?
Cevapla
#5
(21/12/2019 14:57)berduş Adlı Kullanıcıdan Alıntı:
(21/12/2019 14:48)zaferlacin Adlı Kullanıcıdan Alıntı: Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
  Set appExcel = CreateObject("Excel.Application")
  Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi
myWorkbook .DoCmd.RunCommand acCmdAppMaximize kodunu ekler misiniz?
Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
myWorkbook .DoCmd.RunCommand acCmdAppMaximize -----------buraya yazdığımda not set hatası geliyor
  Set appExcel = CreateObject("Excel.Application")

  Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")
myWorkbook .DoCmd.RunCommand acCmdAppMaximize ---------buraya yazdığımda yazdığım hatayı veriyor
appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi
Cevapla
#6
appExcel.Visible = True
appExcel.ActiveWindow.WindowState = xlMaximized
Şeklinde dener misiniz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da