Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Şimdi Ara
E
@enkorkmaz
çavuş
"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.
Diğer rütbeleri gör

0 takipçi
Özel Mesaj

Çavuş
05 Aralık 2011
Tarihinde Katıldı
Takip Ettikleri
0 üye
Görüntülenme
Toplam: 9 (Bu ay: 0)
Fırsat Ekle
Gönderileri
E
enkorkmaz (engin korkmaz) · Ofis Uygulamaları altına konu açtı. 4 yıl

Makro ile fotoğraf eklenen dosya başka bilgisayarda açılmıyor

Merhabalar,
Hazırladığım excel sayfasında yaklaşık 1000 adet ürün var. Ve hepsinin birer kodu ve fotoğrafı mevcut. Excel vba ile liste oluşturdum. Sayfaya çağırdığım fotoğrafları üst-alt-sağ ve soldan hücrelere sığdırdım. Buraya kadar tamam. Buradan sonra 2 problem ile karşılaşıyorum. 1- Hazırlanmış olan dosya, başka bilgisayara gönderildiğinde fotoğraflar açılmıyor. 2- Sayfa 1 de olan ürünlerin kodlarını kopyala yapıştır yaptığımda, örneğin 3. sırada bulunan ürünün fotoğrafı yok. Ondan sonra gelen ürünlerin fotoğrafları olduğu halde hiçbirinin fotoğrafı açılmıyor.
Yardımlarınız için şimdiden teşekkür ederim.


Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [a:a]) Is Nothing Then Exit Sub

'hata kontrolü
On Error GoTo çıkış
' Resimleri Sil

ActiveSheet.DrawingObjects.Delete
'Resim yolunun bulunması

Dim ResimYolu As Variant
Dim Resim As Object

For satır = 2 To 500

ResimYolu = ActiveWorkbook.Path & "\" & Range("a" & satır) & ".png"

' Resmi oluştur

' Resmi oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)

'Resmi Boyutlandır

Set ImageCell = Range("b" & satır).MergeArea

With Range("b" & satır)
Resim.ShapeRange.LockAspectRatio = msoFalse
Resim.Top = ImageCell.Top
Resim.Left = ImageCell.Left
Resim.Height = ImageCell.Height
Resim.Width = ImageCell.Width
End With

Next satır

çıkış:
End Sub
Yanıt Yok Yanıtla Favorilere Ekle 0
E
enkorkmaz (engin korkmaz) · Blackberry altına konu açtı. 13 yıl

[color=#0000FF][size=6]BLACKBERRY 9900'DE TOPLU SMS NASIL ATILIR[/size][/color]

quote:

[size=3]Arkadaşlar yardıma ihtiyacım var. BlackBerry 9900 modeliyle toplu sms atmam gerekiyor. Bu konuda yardımlarınızı bekliyorum. Şimdiden yardımcı olacak arkadaşlara teşekkür ediyorum.
2 Yanıt Yanıtla Favorilere Ekle 0
E
enkorkmaz (engin korkmaz) · Sony altına konu açtı. 13 yıl

Sony Ericsson Xperia Ray için yardım

Arkadaşlar Sony Ericsson Xperia Ray modeli telefonda Galeride aynı dosya altında fotoğraflarım var. Ama aynı dosya altında tutmak istemediğim fotolarım var. Diğer android cihazlardan biraz farklı. Normalde dosya yöneticisinde yeni klasör oluşturup kes yapıştır yapıyordum ama bu cihazda öyle bir ibare görmedim. Bu konuda bana yardımcı olursanız sevinirim.
2 Yanıt Yanıtla Favorilere Ekle 0
Hakkında
Hakkımda:
Sen ve ben, gözyaşıyla ıslanmış hamurdanız;
Rengimize baksınlar, kandan ve çamurdanız!
Akrebin kıskacında yoğurmuş bizi kader;
Aldırma, böyle gelmiş, bu dünya böyle gider!

N.F.K
Temel Bilgiler ve İstatistikler
Aktiflik: Şu anda DH'de değil
Son Giriş: 4 yıl önce
Son Mesaj Zamanı: 4 yıl
Mesaj Sayısı: 49
Gerçek Toplam Mesaj Sayısı: 54
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 581 (Bu ay: 6)
Toplam aldığı artı oy sayısı: 2 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Mobil Cihazlar
Mesajları
İkinci El Referansları
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız