AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Excel Fullscreen Maximized

1 2
21/12/2019, 14:48

zaferlacin

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
21/12/2019, 14:57

berduş

(21/12/2019, 14:48)zaferlacin yazdı: 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?
21/12/2019, 17:56

zaferlacin

(21/12/2019, 14:57)berduş yazdı:
(21/12/2019, 14:48)zaferlacin yazdı: 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
21/12/2019, 17:58

berduş

Kodu nereye eklediniz?
Hata benim dediğim kodda mi çıktı?
21/12/2019, 18:03

zaferlacin

(21/12/2019, 14:57)berduş yazdı:
(21/12/2019, 14:48)zaferlacin yazdı: 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
21/12/2019, 18:20

berduş

appExcel.Visible = True
appExcel.ActiveWindow.WindowState = xlMaximized
Şeklinde dener misiniz
1 2