AccessTr.neT
Excel sayfasına kodla resim ekleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel sayfasına kodla resim ekleme (/konu-excel-sayfasina-kodla-resim-ekleme.html)

Sayfalar: 1 2 3

RE: Tahkikat Evrak Ekleri 2021 - berduş - 20/03/2021

resim ekleme kodu
Link olarak ekler
Sub RsmEkle()



Dim ws As Worksheet

Dim imagePath As String

Dim imgLeft As Double

Dim imgTop As Double

Dim imgWidth As Double

Dim imgHeight As Double



imgWidth = 229.3116

imgHeight = 223.9287

ekleLeft = 15

ekleTop = 16.071418762207



Set ws = ThisWorkbook.Worksheets("Tahkikat Ekleri")

fPath = ThisWorkbook.Path & "\Resimler 2021\"

    fName = Dir(fPath & "*.*")        'dosya ismi listesi

'ilk hücre "J21"

'.Offset (RowOffset, ColumnOffset)

'mod yerine:    TmpKalan = TmpSay Mod Taban  ==>  TmpKalan = TmpSay - Taban * Fix(TmpSay / Taban)

x = 0

Set Rng = ws.Range("J21")

    Do While Len(fName) > 0

    imagePath = fPath & fName

    StrKay = Fix(x / 2)

    StnKay = x - 2 * Fix(x / 2)



        With ws.Pictures.Insert(imagePath)

            With .ShapeRange

                .LockAspectRatio = msoFalse

                .Width = imgWidth

                .Height = imgHeight

            End With

            .Left = Rng.Offset(StrKay, StnKay).Left + ekleLeft

            .Top = Rng.Offset(StrKay, StnKay).Top + ekleTop

            .Placement = 1

            .PrintObject = True

        End With

            x = x + 1

            fName = Dir                                      'sonrak dosya adını al

    Loop

End Sub


RE: Tahkikat Evrak Ekleri 2021 - berduş - 20/03/2021

@feraz hocam shape olmasının bir sakıncası varmı?

RE: Tahkikat Evrak Ekleri 2021 - berduş - 20/03/2021

@feraz hocam sizin kod png uzantılı dosyalarda hata veriyor
        .Picture = LoadPicture(yol)<== bu kısımda invalid picture hatası veriyor

RE: Tahkikat Evrak Ekleri 2021 - feraz - 20/03/2021

(20/03/2021, 12:52)berduş yazdı: @feraz hocam shape olmasının bir sakıncası varmı?
Benlik sakıncası yok abey ilk dosyada image1 olarak eklenmiş ondan dolayı yani benim için sorun yok Img-grin

RE: Tahkikat Evrak Ekleri 2021 - feraz - 20/03/2021

(20/03/2021, 14:16)berduş yazdı: @feraz hocam sizin kod png uzantılı dosyalarda hata veriyor
        .Picture = LoadPicture(yol)<== bu kısımda invalid picture hatası veriyor
İmage nesnesi png formatı tanımıyor olmalı abey.Ayrıca neden silnmiyor benim kodda ve boyut fazla oluyor.Başka zaman lazım olursa böyle soru örnek olabilr.

RE: Tahkikat Evrak Ekleri 2021 - berduş - 20/03/2021

(20/03/2021, 14:50)feraz yazdı: Benlik sakıncası yok abey ilk dosyada image1 olarak eklenmiş ondan dolayı yani benim için sorun yok Img-grin
her hangi bir dezavantajı var mı? Onu merak etmistim