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.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
excelde resim kırpmak
- Konbuyu başlatan kakara
- Başlangıç tarihi
- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,400
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
@Zeki Gürsoy ustadım ılgınız ıcın tesekkur ederım ama hıcbırsey anlıyamadım malesef
- Katılım
- 16 Eylül 2008
- Mesajlar
- 1,290
- Excel Vers. ve Dili
- Microsoft Office 2019 English
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
With shapetocrop.Duplicate
.ScaleHeight 1, True
origHeight = .Height
.Delete
End With
croppoints = origHeight * 20 / 100
shapetocrop.PictureFormat.CropLeft = croppoints
shapetocrop.PictureFormat.CropRight = croppoints
Veya
@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
@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 ?
- Katılım
- 16 Eylül 2008
- Mesajlar
- 1,290
- Excel Vers. ve Dili
- Microsoft Office 2019 English
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
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
@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
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,876
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
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.
s6.dosya.tc
s7.dosya.tc
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
Son düzenleme:
muratgunay48
Altın Üye
- Katılım
- 10 Şubat 2010
- Mesajlar
- 1,477
- Excel Vers. ve Dili
- Office 365 - Türkçe (64 bit)
Hocam, emeğinize sağlık. Lakin winrar dosya biçimi tanınmadı diyor.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
Ekli dosyayı görüntüle 239824
muratgunay48
Altın Üye
- Katılım
- 10 Şubat 2010
- Mesajlar
- 1,477
- Excel Vers. ve Dili
- Office 365 - Türkçe (64 bit)
Teşekkür ederim hocam. Başka sürüm ile denerim.