goedemiddag,
ik heb een excel file die een Word document maakt.
in de excel file staan punten van examens.
het word document wordt gegenereerd vanuit die file.
nu wens ik er een logo op te plaatsen.
ik kan het echter niet positioneren waar ik wil.
later wens ik een tweede logo toe te voegen (een handtekening).
ook deze zou onderaan de brief moeten komen.
kan iemand mij zeggen hoe ik van een picture de hoogte en de linkermarge kan bepalen?
of hoe je je plaats ervan op een word document kunt bepalen?
met dank
ik heb een excel file die een Word document maakt.
in de excel file staan punten van examens.
het word document wordt gegenereerd vanuit die file.
nu wens ik er een logo op te plaatsen.
ik kan het echter niet positioneren waar ik wil.
later wens ik een tweede logo toe te voegen (een handtekening).
ook deze zou onderaan de brief moeten komen.
kan iemand mij zeggen hoe ik van een picture de hoogte en de linkermarge kan bepalen?
of hoe je je plaats ervan op een word document kunt bepalen?
met dank
Code:
Sub testPositonerenLogo()
Dim str_logo As String
' een nieuw word document maken
Dim apl_Word As Word.Application
Dim obj_Doc As Word.Document
Dim obj_Selection
' het word document initialiseren
Set apl_Word = CreateObject("Word.Application")
Set obj_Doc = apl_Word.Documents.Add
apl_Word.Visible = True
Set obj_Selection = apl_Word.Selection
'de locatie van het logo bepalen
str_logo = "C:\logo.png"
' de instellingen van het word document maken (marges en oriëntatie van het document)
With obj_Doc.PageSetup
.Orientation = wdOrientPortrait
.TopMargin = apl_Word.CentimetersToPoints(1)
.LeftMargin = apl_Word.CentimetersToPoints(2)
.RightMargin = apl_Word.CentimetersToPoints(2)
.BottomMargin = apl_Word.CentimetersToPoints(2)
End With
With obj_Doc
With .Styles(wdStyleCaption)
.ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
' het logo invoegen en positioneren
.Range(0).Style = .Styles(wdStyleCaption)
.InlineShapes.AddPicture (str_logo)
End With
End Sub
