Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub ConstrainImage(filePath as String)
- Dim img As Image = Image.FromFile(filePath)
- Dim imgX As Integer = img.Width
- Dim imgXLim As Integer = 350
- Dim imgY As Integer = img.Height
- Dim imgYLim As Integer = 100
- Dim imgXdiff As Integer = imgX - imgXLim
- Dim imgYdiff As Integer = imgY - imgYLim
- Dim growFactor As Double
- Dim shrinkFactor As Double
- .PageSetup.DifferentFirstPageHeaderFooter = 0
- With .Sections(1).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Shapes
- 'Check to see if the image is too big
- If imgX > imgXLim Or imgY > imgYLim Then
- If imgXdiff > imgYdiff Then
- shrinkFactor = (imgXLim / imgX) - ((imgXLim / imgX) Mod 0.1) 'Decimal Floor
- ElseIf imgYdiff > imgXdiff Then
- shrinkFactor = (imgYLim / imgY) - ((imgYLim / imgY) Mod 0.1) 'Decimal Floor
- End If
- imgX = imgX * shrinkFactor
- imgY = imgY * shrinkFactor
- 'If the image isn't too big, check to see if it's too small
- ElseIf imgX < imgXLim Or imgY < imgYLim Then
- If imgXdiff > imgYdiff Then
- growFactor = (imgXLim / imgX) - ((imgXLim Mod imgX) / imgX) 'Floor
- ElseIf imgYdiff > imgXdiff Then
- growFactor = (imgYLim / imgY) - ((imgYLim Mod imgY) / imgY) 'Floor
- End If
- imgX = imgX * growFactor
- imgY = imgY * growFactor
- End If
- With .AddPicture(filePath)
- .Width = imgX
- .Height = imgY
- End With
- End With
- End Sub
Add Comment
Please, Sign In to add comment