3 Schnelle Methoden zum Hinzufügen von Rahmen zu Bildern in Ihrem Word-Dokument

Jetzt teilen:

In diesem Artikel möchten wir drei schnelle Methoden zum Hinzufügen von Rahmen zu Bildern in Ihren Word-Dokumenten erläutern.

Warum sollten wir Bilder mit Rändern versehen? Die Antwort liegt auf der Hand. Einige Bilder ähneln zu sehr dem Hauptinhalt, sagen wir eine Aufnahme eines Wortblocks, den wir leicht mit Texten verwechseln könnten. Um Bilder hervorzuheben, nutzt der Textinhalt die folgenden drei Methoden, die wir Ihnen zeigen werden.

Methode 1: Fügen Sie einem Bild in einem Dokument Rahmen hinzu

  1. Klicken Sie zunächst auf ein Bild, um es auszuwählen.
  2. Klicken Sie anschließend unter "Bildwerkzeug" auf die Registerkarte "Format".
  3. Klicken Sie dann auf "Bildrand" und wählen Sie eine Farbe.   Wählen Sie Bild-> Klicken Sie auf "Format" -> Klicken Sie auf "Bildrand" -> Wählen Sie eine FarbeBildränder hinzufügen

Methode 2: Fügen Sie allen Bildern in einem Dokument Rahmen hinzu

Wie in Methode 1 gezeigt, ist es keine gute Idee, das Bild einzeln manuell zu ändern. Um Aufwand zu sparen, sollten Sie Makro verwenden.

  1. Zu starKlicken Sie mit auf die Registerkarte "Entwickler" und dann auf "Visual Basic", um den VBA-Editor anzuzeigen. Wenn "Entwickler" nicht verfügbar ist, drücken Sie stattdessen einfach "Alt + F11".Klicken Sie auf "Entwickler" -> Klicken Sie auf "Visual Basic".
  2. Klicken Sie dann auf "Normal".
  3. Klicken Sie anschließend auf die Registerkarte "Einfügen" und wählen Sie "Modul" in seinem Menü.Klicken Sie auf "Normal" -> Klicken Sie auf "Einfügen" -> Klicken Sie auf "Modul". Klicken Sie auf "Normal" -> Klicken Sie auf "Einfügen" -> Klicken Sie auf "Modul".
  4. Doppelklicken Sie auf das neue Modul, um den Codierungsbereich auf der rechten Seite zu öffnen.
  5. Fügen Sie nun dort das folgende Makro ein:
Sub AddPictureBorders()
  Dim objShape As Shape
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objInLineShape In .InlineShapes
      With objInLineShape.Line
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    Next
    For Each objShape In .Shapes
      objShape.Fill.Solid
      With objShape.Line
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    Next
  End With
End Sub
  1. Last but not least klicken Sie auf die Schaltfläche "Ausführen" oder drücken Sie "F5".Codes einfügen-> Klicken Sie auf "Ausführen"

Methode 3: Fügen Sie allen Bildern in mehreren Dokumenten Rahmen hinzu

Da wir ein Makro schreiben können, um mit Bildern in einem Dokument umzugehen, gibt es auch die Möglichkeit, Bilder in mehreren Dokumenten zu verarbeiten.

Vor allem müssen Sie alle organisieren tarDokumente im selben Verzeichnis abrufen. Befolgen Sie dann genau die oben beschriebenen Schritte, um ein Makro zu installieren und auszuführen, ersetzen Sie es jedoch durch das folgende:

Sub AddPictureBordersInMultiDoc()
  Dim objShape As Shape
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
 
  Set objDoc = ActiveDocument
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    With objDoc
      For Each objInLineShape In .InlineShapes
        With objInLineShape.Line
          .Style = msoLineSingle
          .ForeColor.RGB = RGB(0, 0, 0)
        End With
      Next
      For Each objShape In .Shapes
        objShape.Fill.Solid
        With objShape.Line
          .Style = msoLineSingle
          .ForeColor.RGB = RGB(0, 0, 0)
        End With
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Notizen:

  1. Die vollständigeC: \ Benutzer \ Öffentlich \ Dokumente \ Neuer Ordner \”In diesem Makro bezieht sich auf den Verzeichnispfad, in dem Sie Dokumente speichern. Und vergessen Sie nie, das letzte hinzuzufügen “\".
  2. Sie können die Rahmenfarbe ändern, indem Sie die ändern RGB-Wert.

Zeit, über Backup nachzudenken

Most von uns wurden gut darüber informiert, was ein Backup bewirken kann. Es kann Ihr Lebensretter sein, wenn Sie es haben Wortschaden. Daher werden wir niemals den Effekt untergraben, dass wir uns Minuten Zeit nehmen, um wertvolle Dokumente zu sichern. Daher kann man die Sicherheit seiner Daten nicht garantieren.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigt xlsx und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX

Jetzt teilen:

Kommentare sind geschlossen.