vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Bilder mit Makro zerschneiden? und abspeichern! 
Autor: stromer
Datum: 04.02.06 10:08

Hallo,
ich möchte ein großes Bild (liegt oben links, innerhalb einer Word 2000-Seite aus Datei eingefügt) mit einem Makro in mehrere einzelne Streifen zu "Spaghetti zerschneiden" und die Einzelbilder wieder als "Bild1.gif",Bild2.gif usw abspeichern.

Der Schnitt ist in etwa wie unten, aber jetzt diesen kopierten Schnipsel aus dem Zwischenspeicher nach "C:\Eigene Dateien\Bild1.gif" usw speichern, wie geht das?
oder gibt es einen einfacheren Weg? wer weiß hier Rat?

PS: es sollen mehrere Bilder so in "versetzten Streifen" die sich überlappen,
zerlegt werden, deswegen eine Makroanwendun.
Streifenabstand = jeden Millimeter!

'----
Sub schnitt2()
'
' schnitt2 Makro
'
Selection.InlineShapes(1).PictureFormat.CropRight = 169.15
Selection.InlineShapes(1).PictureFormat.CropBottom = -0.35
Selection.Copy

' evtl auch so oder ähnlich.
' Selection.ShapeRange.IncrementLeft 0.3
' Selection.ShapeRange.IncrementTop 0.3
' Selection.ShapeRange.PictureFormat.CropRight = 133.5
' Selection.ShapeRange.PictureFormat.CropLeft = 18#
' Selection.Copy

End Sub

Gruß und Danke Bernhard
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bilder mit Makro zerschneiden? und abspeichern!888stromer04.02.06 10:08

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel