En azından, geçerli formdaki resmi Excel üzerinde istediğim yere göndermeyi başardım. Ancak bunu bilgiler olmadan yapabildim. Şimdi hem bilgileri, hem de resimleri Excel de satır yüksekliklerini de ayarlayarak gönderebiliyor olmam lazım.
"Tüm Ürünleri Excel'e Aktar" butonuna kodu ekleyerek geçerli formdaki resmi excel' gönderebilirsiniz.
Kod:
On Error GoTo Err_Komut11
'DoCmd.OutputTo acQuery, "Sorgu1", "MicrosoftExcel(*.xls)", "", False, "", 0
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim PicLocation As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlBook.Application.Visible = True
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "Ürün Bilgileri"
xlSheet.Activate
PicLocation = Me.resim_yolu
If Dir(PicLocation) <> "" Then
'False Link to File
'True Save with Document
'All below values are in Points
'Left 100
'Top 100
'Width 70
'Height 70
xlSheet.Shapes.AddPicture PicLocation, False, True, 10, 100, 100, 100
'DoCmd.OutputTo acQuery, "Sorgu1", "MicrosoftExcel(*.xls)", "", False, "", 0
End If
Exit_Komut11:
Exit Sub
Err_Komut11:
MsgBox "Klasör seçmediğiniz için işlem iptal edildi", , "İŞLEM İPTAL EDİLDİ"
Resume Exit_Komut11
Edit: Butona eklenmiş halini ekledim. Ürün fotolarını tekrar yükleyiniz.
