Word Belgenizdeki Birden Çok Şeklin Dolgu Rengini Toplu Olarak Kaldırmanın 3 Yolu

Bu yazımızda, Word belgenizdeki birden fazla şeklin dolgu rengini toplu olarak kaldırmak için 3 etkili yöntemi göstermekten mutluluk duyuyoruz.

Bir Word belgesine şekiller eklerken bunlara dolgu rengi de uygulayabilirsiniz. Tek bir şeklin dolgu rengini eklemek veya çıkarmak kolaydır. Ancak toplu işleme söz konusu olduğunda, biraz numaraya ihtiyacımız olacak.

Bu kez, belgedeki birden çok şeklin dolgu rengini toplu olarak nasıl kaldıracağınızı göstermek istiyoruz. Böylece onları istediğiniz renklerle yeniden doldurabilir veya şekilleri boş arka planda bırakabilirsiniz. Aşağıda, farklı durumlarda size yardımcı olabilecek 3 yöntem bulunmaktadır.

Yöntem 1: Bir Sayfadaki Birden Çok Şeklin Dolgu Rengini Kaldırma

1. Her şeyden önce, Şeritte "Giriş" sekmesine tıklayın.
2. Ardından “Düzenleme” grubunda “Seç” komutunu tıklayın.
3. Açılır menüden "Seçim Bölmesi"ni seçin.
4. Şimdi "Seçim ve Görünürlük" bölmesinde, bu sayfadaki tüm şekillerin adını görebilirsiniz. İhtiyacınız olan şekilleri seçmek için "Ctrl" tuşuna basın.
5. Ardından Şeritte "Biçimlendir" i tıklayın.
6. Sonra "Şekil Dolgusu"nu tıklayın.
7. Açılır menüden "Doldurma Yok"u seçin.

Yöntem 2: Bir Belgedeki Tüm Şekillerin Dolgu Rengini Toplu Olarak Kaldırma

1. Öncelikle, "Geliştirici" sekmesi mevcutsa, üzerine tıklayın ve ardından VBA düzenleyicisini açmak için "Visual Basic" seçeneğine tıklayın. "Geliştirici" etkinleştirilmemişse, bunun yerine "Alt + F11" tuşlarına basın.
2. Şimdi editörde sol taraftaki "Normal" projeye tıklayın.
3. Ardından, menü çubuğundaki "Ekle" düğmesini tıklayın.
4. Ardından açılır menüden "Modül"ü seçin.
5. Açmak için yeni modüle çift tıklayın ve şu kodları oraya yapıştırın:

Sub RemoveAllShapeFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    objShape.Fill.Visible = False
    objShape.Line.Visible = msoTrue
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

6. Son olarak, kodları çalıştırmak için “Çalıştır” düğmesine tıklayın veya “F5” tuşuna basın.

Yöntem 3: Bir Belgedeki Tüm Metin Kutularının Dolgu Rengini Kaldırma

Metin kutuları şekil kategorisine aittir. Tüm metin kutularının dolgu rengini kaldırmak, ancak diğer şekillerin dolgu rengini korumak istiyorsanız, bu yolu kullanabilirsiniz.

1. İlk olarak, bir makro yüklemek ve çalıştırmak için yöntem 2'deki adımları tekrarlayın.
2. Ve bu sefer, o makroyu bununla değiştirin:

Sub RemoveTextBoxFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Fill.Visible = msoFalse
      objShape.Line.Visible = msoTrue
    Else
      Exit For
    End If
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

İşte sonuç:

Hasarlı Belgeleri Hızla Kurtarın

Belge bozulmasıyla karşılaşırsanız paniklemeyin. Çoğu belgenin kurtarılabileceğini unutmayın. Yapmanız gereken, zaman kazanmak ve harekete geçmektir. doktor düzeltme alet. Günümüzde, böyle bir yardımcı program, verilerinizi geri almada çok yardımcı olabilir.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls düzeltmesi hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com