Dag lezer,
Voor mijn werk heb ik een macro geschreven, alleen nu wil mij één dingetje nog niet echt lukken.
De situatie is als volgt: elke week wordt er een rapportage gemaakt en bij elke rapportage is er een bijlage met foto's. Deze foto's worden in de tweede kolom geplaatst van een (i x 2)-tabel, waarbij i het aantal rijen is (=aantal foto's).
Nou heb ik een macro gemaakt die automatisch foto's invoegt vanuit een map op de computer (o.b.v. het aantal rijen in de tabel). Met een andere macro wordt het formaat aangepast.
Het probleem is echter dat de foto's worden ingevoegd met de indeling 'in tekstregel'. Graag zou ik de foto's in volledige grootte in de tabelcel zien. Bestaat daar een macro voor of moet ik één van mijn twee macro's iets aanpassen?
Bij voorbaat dank voor jullie tijd en medewerking!!
Dit zijn mijn twee macro's:
Deze voor het invoegen van de foto's in de tweede kolom van de tabel
Sub FotosInvoegen()
With ActiveDocument.Tables(8)
For J = 1 To .Rows.Count
If Dir("pad naar map met foto's" & J & ".jpg") = "" Then Exit For
.Cell((J), (2)).Range.InlineShapes.AddPicture ("pad naar map met foto's" & J & ".jpg")
Next
End With
End Sub
Deze voor het aanpassen van het formaat
Sub FormaatAanpassen()
Dim iShapeCount As Integer
Dim iILShapeCount As Integer
Dim DocThis As Document
Dim J As Integer
Set DocThis = ActiveDocument
Dim origHeight As Integer
Dim origWidth As Integer
Dim scaleHeight As Double
Dim wid As Integer
wid = PixelsToPoints(480)
iILShapeCount = DocThis.InlineShapes.Count
If iILShapeCount > 0 Then
For J = 1 To iILShapeCount
origWidth = DocThis.InlineShapes(J).Width
DocThis.InlineShapes(J).Width = (wid)
DocThis.InlineShapes(J).Height = 300
Next J
End If
End Sub
Voor mijn werk heb ik een macro geschreven, alleen nu wil mij één dingetje nog niet echt lukken.
De situatie is als volgt: elke week wordt er een rapportage gemaakt en bij elke rapportage is er een bijlage met foto's. Deze foto's worden in de tweede kolom geplaatst van een (i x 2)-tabel, waarbij i het aantal rijen is (=aantal foto's).
Nou heb ik een macro gemaakt die automatisch foto's invoegt vanuit een map op de computer (o.b.v. het aantal rijen in de tabel). Met een andere macro wordt het formaat aangepast.
Het probleem is echter dat de foto's worden ingevoegd met de indeling 'in tekstregel'. Graag zou ik de foto's in volledige grootte in de tabelcel zien. Bestaat daar een macro voor of moet ik één van mijn twee macro's iets aanpassen?
Bij voorbaat dank voor jullie tijd en medewerking!!
Dit zijn mijn twee macro's:
Deze voor het invoegen van de foto's in de tweede kolom van de tabel
Sub FotosInvoegen()
With ActiveDocument.Tables(8)
For J = 1 To .Rows.Count
If Dir("pad naar map met foto's" & J & ".jpg") = "" Then Exit For
.Cell((J), (2)).Range.InlineShapes.AddPicture ("pad naar map met foto's" & J & ".jpg")
Next
End With
End Sub
Deze voor het aanpassen van het formaat
Sub FormaatAanpassen()
Dim iShapeCount As Integer
Dim iILShapeCount As Integer
Dim DocThis As Document
Dim J As Integer
Set DocThis = ActiveDocument
Dim origHeight As Integer
Dim origWidth As Integer
Dim scaleHeight As Double
Dim wid As Integer
wid = PixelsToPoints(480)
iILShapeCount = DocThis.InlineShapes.Count
If iILShapeCount > 0 Then
For J = 1 To iILShapeCount
origWidth = DocThis.InlineShapes(J).Width
DocThis.InlineShapes(J).Width = (wid)
DocThis.InlineShapes(J).Height = 300
Next J
End If
End Sub
