Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • İşletim Sistemleri ve Yazılımlar
  • Yazılım Genel
  • Ofis Uygulamaları
  • Bu Konuda
Şimdi Ara

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

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
2
Cevap
0
Favori
371
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • 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







    • Yapay Zeka’dan İlgili Konular
    C# ile internetten mp3 dosyası çekme
    2 yıl önce açıldı
    mşcrosoft word te bir resim üzerine bir resim ekleme
    15 yıl önce açıldı
    Whatsapp "Bu video gönderilemiyor. Farklı bir video seçin ve tekrar deneyin" hatası
    9 ay önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum