Bildteilbereiche ausschneiden
#11
Hallo Norre und Martin,

danke für die zusätzlichen Hinweise, werde ich morgen testen und Rückmeldung geben
Zitieren
#12
Hallo Günther,

Das Folgende Makro löscht alle Pixel-Zeilen, die von einer Maske berührt werden.
Du musst die Maske also nicht über die gesamte Breite des Bildes aufziehen.

Code:
Sub KillPixelzeilen()
   Dim D As Document
   Dim M As New Mask
   Dim BL As Layer
   Dim MX As Long, MY As Long, MH As Long, MB As Long
   Set D = ActiveDocument
   
   If D.Mask.IsEmpty Then
       MsgBox "Keine Maske!", vbCritical, "Fehler"
       Exit Sub
   Else
       Set M = D.Mask
       Set BL = D.Background.ConvertToLayer
   End If
   With M
       MX = .PositionX
       MY = .PositionY
       MH = .SizeHeight
       MB = .SizeWidth
       .SetSize D.SizeWidth, MY
       .PositionY = 0
       .PositionX = 0
   End With
   D.Layers.Add "Oben", , , pntCopySelection
   BL.CreateMask
   M.SetSize D.SizeWidth, D.SizeHeight - MY - MH
   D.Layers.Add "Unten", , , pntCopySelection
   D.Layers("Unten").PositionY = MY
   BL.Delete
   D.Crop 0, 0, D.SizeWidth, D.Layers("Unten").PositionY + D.Layers("Unten").SizeHeight
   D.Layers.Merge
End Sub

Der Rest wird nach oben gezogen (wie Text in einer Textverarbeitung wenn man Zeilen löscht).
Vielleicht kannst Du damit etwas anfangen.

Gruß

Koter
[-] 3 Benutzer bedanken sich bei koter für diesen Beitrag:
  • Karthagos, mvm, norre
Zitieren
#13
Hallo Koter,

1000 Dank für das Makro, funktioniert genau so, wie ich es mir vorgestellt habe  Daumenhoch

Viele Grüße - Günther
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  2 Objekte übereinanderlegen und ausschneiden? casus 3 1.373 23.02.2012, 21:49
Letzter Beitrag: casus
  Wie Bild ausschneiden und dann in Corel einfügen? Loeckchen 1 1.906 06.04.2011, 10:57
Letzter Beitrag: Unkraut
  Objekte ausschneiden und woanders einfügen ghilbig 12 4.220 26.11.2010, 19:29
Letzter Beitrag: Oberloser
  Ausschneiden und einfügen: Größenproblem problembaer 3 2.503 18.05.2010, 00:35
Letzter Beitrag: Unkraut
  brauche eure dringende Hilfe - Bild ausschneiden Faehe 18 1.295 27.11.2009, 16:20
Letzter Beitrag: Faehe
  Gleichgroße Teilbereiche eines Bildes ausschneiden Der_Techniker 3 1.479 06.10.2009, 18:36
Letzter Beitrag: Der_Techniker
  Ausschneiden von Objekten CorelPhotoPaint X4 Nice_Stuff 2 7.811 16.06.2009, 12:40
Letzter Beitrag: Nice_Stuff
  Bild ausschneiden.... jessi52 9 1.870 19.03.2009, 00:34
Letzter Beitrag: Unkraut
  Png-Bild Ausschneiden und Schatten setzen Claude 2 1.016 22.03.2007, 20:37
Letzter Beitrag: Claude