[Yardım]  Arka Plan Resimlerini Kaldırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Arka Plan Resimlerini Kaldırma

İleti#1)  laerrof » 10 Haz 2019 18:53

Öncelikle herkese merhaba.

Üzerinde çalıştığım excel dosyasında bir logo mevcut ve de logoyu bir türlü kaldıramıyorum. Aşağıdaki işlemleri denedim fakat hepsi sonuçsuz kaldı.

-Logoyu en arkaya gönder dedim.
-Logoyu başka bir logo ile değiştirdim.
-Üzerine başka logolar ya da beyaz dolgulu nesne ekleyip kopyalayıp kilitledim.
-Kaybolmayan logoyu resim ayarlarından parlaklık ve kontrastı %100 yapıp beyaz yaptım. Netlik ve sıcaklığı %0 yaptım.
-Logoyu sildim sildikçe de yenisi çıktı.
-Excele beyaz arka plan ekledim.

Sayfayı aşağıya doğru indirdikçe üzerine yaptığım tüm işlemlere rağmen yine logo kendisini belli ediyor. Bunların dışında aklıma da bir şey gelmiyor. Bu logodan nasıl kurtulabilirim ?

Destek veren herkese şimdiden teşekkür ederim.
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Arka Plan Resimlerini Kaldırma

İleti#2)  Feyzullah » 10 Haz 2019 18:58

Örnek dosya yüklermisin ?
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Arka Plan Resimlerini Kaldırma

İleti#3)  laerrof » 10 Haz 2019 19:07

Feyzullah yazdı:Örnek dosya yüklermisin ?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Arka Plan Resimlerini Kaldırma

İleti#4)  Feyzullah » 10 Haz 2019 19:13

Sayfanızda tüm resimleri siler
Kod: Tümünü seç
Sub ExcelDestek()
ActiveSheet.Shapes.SelectAll
Selection
.Delete
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Arka Plan Resimlerini Kaldırma

İleti#5)  laerrof » 10 Haz 2019 19:16

Feyzullah yazdı:Sayfanızda tüm resimleri siler
Kod: Tümünü seç
Sub ExcelDestek()
ActiveSheet.Shapes.SelectAll
Selection
.Delete
End Sub



Desteğiniz için teşekkür ederim. Peki sadece görmek istemediğim logoyu nasıl kaldırabilirim ? Bununla alakalı bir şey yapmak mümkün müdür ?

Öte yandan bu kod nesne olarak atadığım makro butonlarını da kaldırıyor.
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Arka Plan Resimlerini Kaldırma

İleti#6)  Feyzullah » 10 Haz 2019 20:02

Kod: Tümünü seç
Sub xd_SIL()
    
Dim xd As Shape
    
For Each xd In ActiveSheet.Shapes
    
If xd.Name <> "Picture 7" And xd.Name <> "Picture 169" Then
        
If InStr(1xd.Name"Picture") > 0 Then xd.Delete
    End 
If
    
Next
    MsgBox 
"İşleminiz tamamlanmıştır."vbInformation
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Arka Plan Resimlerini Kaldırma

İleti#7)  laerrof » 11 Haz 2019 21:10

Feyzullah yazdı:
Kod: Tümünü seç
Sub xd_SIL()
    Dim xd As Shape
    For Each xd In ActiveSheet
.Shapes
    If xd
.Name <> "Picture 7" And xd.Name <> "Picture 169" Then
        If InStr
(1, xd.Name, "Picture") > 0 Then xd.Delete
    End If
    Next
    MsgBox 
"İşleminiz tamamlanmıştır.", vbInformation
End Sub



Desteğiniz için teşekkür ederim Feyzullah Bey. İlgili kod ile işlemi gerçekleştirebildim.
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Arka Plan Resimlerini Kaldırma

İleti#8)  Feyzullah » 11 Haz 2019 22:14

İyi çalışmalar.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe