Text mit Fotos

Computer: Software & Programmierung Office Software
1

Hallo, Ihr Experten,

ich möchte in Word 2000 so etwas wie ein Wohnungsabnahmeprotokoll erstellen.

Dazu habe ich zunächst die einzelnen Mängel als ganz normalen Text erfasst (je Mängelpunkt einen Absatz).

Mit einer Digitalkamera habe ich dann die jeweiligen Mängel fotografiert und in den PC eingelesen.

Mein Wunsch: links der Text, rechts daneben das Foto.

Längerer Text kann / soll auf mehrere Zeilen umgebrochen werden.

Alle Fotos sollen verkleinert und auf gleiche Größe gebracht und am rechten Seitenrand ausgerichtet werden.

Bisher lese ich jedes Foto einzeln über Einfügen – Grafik – Aus Datei ein, aktiviere es mit der linken Maustaste, dann rechte Maustaste und Objekt formatieren - Größe / Layout (manuelle Eingabe) – fertig

Bei ca. 50 Fotos ist mir das aber zu mühselig. Habt Ihr ‚nen heißen Tipp für mich, wie das einfacher geht?

Vielen herzlichen Dank allen, die sich den Kopf darüber zerbrechen und einen schönen Tag noch.

Siegfried

2

ich würde in word ein texfeld einfügen, entsprechend der grösse die du an der seite haben möchtest. automatisch alle fotos einfügen geht glaube ich nicht bei word, allerdings formatiert das textfeld dann die grösse der einzelnen fotos automatisch (habe ich gerade mal so ausprobiert)

viele grüsse aus hamburg
metoo

3

Ich hatte es mal so gemacht (Makro):

Option Explicit
Option Base 1
 
 
Sub BilderEinfuegen()
'Kristian Zarse für WerWeissWas, 25.Juni 2002
Const int\_AnzahlBilder As Integer = 0 'Konstante anpassen!
Const str\_Pfad As String = "C:\Temp\" 'letzten Backslash nicht vergessen!
 
Const sng\_Horizontal As Single = 10 'cm
Const sng\_Vertikal As Single = 0 'cm
Const sng\_AbstandLinks As Single = 0.5 'cm
'Const sng\_Hoehe As Single = 5 'cm Entweder Höhe ODER Breite festlegen
Const sng\_Breite As Single = 5 'cm
Const byt\_AnzahlLeerzeilen As Byte = 8
 
Dim strBilderArray() As String
Dim i As Integer
Dim k As Byte
 
 ReDim strBilderArray(int\_AnzahlBilder) 'Konstante anpassen!
 'strBilderArray(1) = ".jpg"
 'strBilderArray(2) = ".jpg"
 'strBilderArray(3) = ".jpg"
 'strBilderArray(4) = ".jpg"
 'strBilderArray(5) = ".jpg"
 'strBilderArray(6) = ".jpg"
 'strBilderArray(7) = ".jpg"
 'strBilderArray(8) = ".jpg"
 'strBilderArray(9) = ".jpg"
 'strBilderArray(10) = ".jpg"
 'strBilderArray(11) = ".jpg"
 'strBilderArray(12) = ".jpg"
 'strBilderArray(13) = ".jpg"
 'strBilderArray(14) = ".jpg"
 'strBilderArray(15) = ".jpg"
 'strBilderArray(16) = ".jpg"
 'strBilderArray(17) = ".jpg"
 'strBilderArray(18) = ".jpg"
 'strBilderArray(19) = ".jpg"
 'strBilderArray(20) = ".jpg"
 'strBilderArray(21) = ".jpg"
 'strBilderArray(22) = ".jpg"
 'strBilderArray(23) = ".jpg"
 'strBilderArray(24) = ".jpg"
 'strBilderArray(25) = ".jpg"
 'strBilderArray(26) = ".jpg"
 'strBilderArray(27) = ".jpg"
 'strBilderArray(28) = ".jpg"
 'strBilderArray(29) = ".jpg"
 'strBilderArray(30) = ".jpg"
 'strBilderArray(31) = ".jpg"
 'strBilderArray(32) = ".jpg"
 'strBilderArray(33) = ".jpg"
 'strBilderArray(34) = ".jpg"
 'strBilderArray(35) = ".jpg"
 'strBilderArray(36) = ".jpg"
 'strBilderArray(37) = ".jpg"
 'strBilderArray(38) = ".jpg"
 'strBilderArray(39) = ".jpg"
 'strBilderArray(40) = ".jpg"
 'strBilderArray(41) = ".jpg"
 'strBilderArray(42) = ".jpg"
 'strBilderArray(43) = ".jpg"
 'strBilderArray(44) = ".jpg"
 'strBilderArray(45) = ".jpg"
 'strBilderArray(46) = ".jpg"
 'strBilderArray(47) = ".jpg"
 'strBilderArray(48) = ".jpg"
 'strBilderArray(49) = ".jpg"
 'strBilderArray(50) = ".jpg"
 
 For i = 1 To int\_AnzahlBilder
 With Selection
 .Collapse
 .MoveDown Unit:=wdLine, Count:=byt\_AnzahlLeerzeilen + 1
 .TypeText strBilderArray(i) & " (" & i & ")"
 For k = 1 To byt\_AnzahlLeerzeilen + 1
 .TypeParagraph
 Next k
 .MoveUp Unit:=wdLine, Count:=byt\_AnzahlLeerzeilen + 1
 .InlineShapes.AddPicture \_
 FileName:=str\_Pfad & strBilderArray(i), \_
 LinkToFile:=False, \_
 SaveWithDocument:=True
 .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
 .InlineShapes(1).ConvertToShape.Select
 End With 'Selection
 
 With Selection.ShapeRange
 .LockAspectRatio = msoTrue 'Entweder Höhe ODER Breite festlegen:
 '.Height = CentimetersToPoints(sng\_Hoehe)
 .Width = CentimetersToPoints(sng\_Breite)
 
 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
 .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
 .Left = CentimetersToPoints(sng\_Horizontal)
 .Top = CentimetersToPoints(sng\_Vertikal)
 
 .WrapFormat.AllowOverlap = False
 
 .WrapFormat.Side = wdWrapLeft
 .WrapFormat.DistanceTop = CentimetersToPoints(0)
 .WrapFormat.DistanceBottom = CentimetersToPoints(0)
 .WrapFormat.DistanceLeft = CentimetersToPoints(sng\_AbstandLinks)
 .WrapFormat.DistanceRight = CentimetersToPoints(0)
 .WrapFormat.Type = wdWrapSquare
 End With 'Selection.ShapeRange
 Next i
 
 Selection.Collapse
 Selection.MoveDown Unit:=wdLine, Count:=1
End Sub 'BilderEinfuegen

Pfad angeben, Dateinamen eintragen (jeweils Kommentarzeichen löschen), Anzahl oben eintragen und ausprobieren. Größe undso danach erst anpassen.

Ich hoffe es geht. Wenn ein Bild zu groß war, ist Word mir abgeschmiert, also vorher alles sichern.

Achso, und um das Makro reinzukriegen, einfach ein leeres Dokument öffnen, Extras/Makro/Makro aufzeichnen („In diesem Dokument“ einstellen), Stop drücken, im gleichen Menü auf Bearbeiten gehen, den Makro-Rumpf löschen und durch den obigen ersetzen.

Bei Fragen bitte melden.

Kristian

4

Danke
an Kristian und MeToo.

Problem ist gelöst.

Siegfried