Set EXCL = New EXCeL.Application
With EXCL
.Application.Visible = True
.UserControl = False
End With
Set KTP = EXCL.Workbooks.Add
Set syf = KTP.Worksheets(1)
With EXCL
.ActiveWindow.DisplayGridlines = False
PicLocation = CurrentProject.Path & "\Resminiz.jpg"
syf.Shapes.AddPicture PicLocation, False, True, 330, 48, 212, 227
' Sol, Üst, Genişlik, Yükseklik
End With
alpeki99 Hocamın örneğine istinaden, ek olarak örnek olması açısından
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.