excelde resim kırpmak

[kakara]

Merhaba ustadlarım yapılabılırlıgı var mı bılmıyorum ama, dosyadan resımlerı benım verecegım boyutlara göre kırpmak ıstıyorum. çok fazla fotograf oldugu ıcın paıntten tek tek ugrasıyoruz excele cekerken ıstedıgımız boyutlarda kırpıp sonrada excele gelebılır mı resımler ? ılgınız ıcın sımdıden tesekkurler. bır ornek dosya atmıyorum kırpma ölçütleri her seferınde degısebılır.

 

[Zeki Gürsoy]

Resizing picture files

.

 

[kakara]

@Zeki Gürsoy ustadım ılgınız ıcın tesekkur ederım ama hıcbırsey anlıyamadım malesef

 

[Trilenium]

Set shapetocrop = ActiveWindow.Selection.ShapeRange(1)
With shapetocrop.Duplicate
.ScaleHeight 1, True
origHeight = .Height
.Delete
End With
croppoints = origHeight * 20 / 100
shapetocrop.PictureFormat.CropLeft = croppoints
shapetocrop.PictureFormat.CropRight = croppoints


Veya

PictureFormat.CropLeft property (Excel)

Office VBA reference topic

learn.microsoft.com

 

[kakara]

@Trilenium ustadım verdıgınız kod sag ve sol taraftan kırpıyor bu kodun ıcıne alt ve ust tarafta eklenebılır mı acaba ? ılgınız ıcın tesekkur ederım

 

[kakara]

@Trilenium ustadım verdıgınız lınkten alt ve ust kırpmayıda yapabıldım yalnız tek resım sectırıp yaptırıyor ben excele aldıgım 50 resmı aynı anda yapmak ıstıyorum acaba bır yolu var mıdır ?

 

[Trilenium]

Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
xRowIndex = Application.ActiveCell.Row
For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xRowIndex = xRowIndex + 1
Next
End If


Bu kod ile birden fazla resimi seçip ekle dediğinizde tüm resimleri hücre boyu ve genişliği kadar resize edip ekliyor

 

[kakara]

@Trilenium ustadım ben bırden fazla hucre boyutunda excele cektıgım resımlerın hepsını secerek sağ sol alt ve ust kırpmalarını yaptırmak ıstıyorum. sizin kodunuz resmı getırıyor orda bır problemım yok acıkcası ılgınız ıcınde tesekkur ederım

 

[halit3]

Alternatif dosya linki veriyorum bu dosya exe olarak yapılmıştır.
kaynak ve hedef yazan yerlerden klasörleri seçiniz ve istediğiniz işleme ait seçenek düğmesinden seçim yapınız
işlemi başlat düğmesine tıklayınız.
not:
1-liste kutularına ait işlemlerden klasör ve dosyaları sürükle bırak işlemi de yapmaktadır.
2-bu dosyanın yanında (sifre kayit.1st) dosyası olmadan çalışmaz,
3-ilk defa kullananlar için (şifre parametresi.exe) dosyası ile şifre parametresi oluşturması gerekiyor.

resimleri_kirp.rar dosyasını indir - download

resimleri_kirp.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

sifre_parametresi.rar dosyasını indir - download

sifre_parametresi.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[kakara]

@halit3 ustadım tesekkur ederım

 

[muratgunay48]

Alternatif dosya linki veriyorum bu dosya exe olarak yapılmıştır.
kaynak ve hedef yazan yerlerden klasörleri seçiniz ve istediğiniz işleme ait seçenek düğmesinden seçim yapınız
işlemi başlat düğmesine tıklayınız.
not:
1-liste kutularına ait işlemlerden klasör ve dosyaları sürükle bırak işlemi de yapmaktadır.
2-bu dosyanın yanında (sifre kayit.1st) dosyası olmadan çalışmaz,
3-ilk defa kullananlar için (şifre parametresi.exe) dosyası ile şifre parametresi oluşturması gerekiyor.

resimleri_kirp.rar dosyasını indir - download

resimleri_kirp.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Ekli dosyayı görüntüle 239824

Hocam, emeğinize sağlık. Lakin winrar dosya biçimi tanınmadı diyor.

 

[halit3]

Neden olduğunu bilmiyorum bendeki winrar sürümü bu (winrar-x64-550tr.exe)
bu sürüm ile sıkıştırma yapıldı

 

[muratgunay48]

Neden olduğunu bilmiyorum bendeki winrar sürümü bu (winrar-x64-550tr.exe)
bu sürüm ile sıkıştırma yapıldı

Teşekkür ederim hocam. Başka sürüm ile denerim.