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
Excel Fullscreen Maximized
Bu Konudaki Yorumlar |
Excel Fullscreen Maximized - Yazar: zaferlacin - 21/12/2019, 14:48
Cvp: Excel Fullscreen Maximized - Yazar: berduş - 21/12/2019, 14:57
Cvp: Excel Fullscreen Maximized - Yazar: zaferlacin - 21/12/2019, 17:56
Cvp: Excel Fullscreen Maximized - Yazar: zaferlacin - 21/12/2019, 18:03
Cvp: Excel Fullscreen Maximized - Yazar: berduş - 21/12/2019, 17:58
Cvp: Excel Fullscreen Maximized - Yazar: berduş - 21/12/2019, 18:20
Cvp: Excel Fullscreen Maximized - Yazar: zaferlacin - 21/12/2019, 18:40
|
Konuyu Okuyanlar: 1 Ziyaretçi