Fitting images to document's margins in a docx file
up vote
3
down vote
favorite
I've got a docx file with many figures, all do not fit the margins of the document. I can manually adjust the sizes of the figures in the file, but would love to have some way to automate this (either from Word, from a command line tool, or any other means).
(PS: this is a follow-up to this question)
microsoft-word images vba docx
edited May 23 '17 at 12:41
Community♦
1
asked Mar 22 '13 at 21:37
Tal Galili
1,360102845
add a comment |
up vote
3
down vote
favorite
I've got a docx file with many figures, all do not fit the margins of the document. I can manually adjust the sizes of the figures in the file, but would love to have some way to automate this (either from Word, from a command line tool, or any other means).
(PS: this is a follow-up to this question)
microsoft-word images vba docx
edited May 23 '17 at 12:41
Community♦
1
asked Mar 22 '13 at 21:37
Tal Galili
1,360102845
1
I'm sure this is possible with VBA, i.e. iterate through all embedded images in the doc and resize them to fit within the current page margins.
– Karan
Mar 23 '13 at 1:20
Thanks Karan, should I ask this in SO than?
– Tal Galili
Mar 23 '13 at 1:22
Macros are on-topic here too, so I'd recommend waiting for answers here for a while.
– Karan
Mar 23 '13 at 1:24
add a comment |
up vote
3
down vote
favorite
up vote
3
down vote
favorite
I've got a docx file with many figures, all do not fit the margins of the document. I can manually adjust the sizes of the figures in the file, but would love to have some way to automate this (either from Word, from a command line tool, or any other means).
(PS: this is a follow-up to this question)
microsoft-word images vba docx
edited May 23 '17 at 12:41
Community♦
1
asked Mar 22 '13 at 21:37
Tal Galili
1,360102845
I've got a docx file with many figures, all do not fit the margins of the document. I can manually adjust the sizes of the figures in the file, but would love to have some way to automate this (either from Word, from a command line tool, or any other means).
(PS: this is a follow-up to this question)
microsoft-word images vba docx
microsoft-word images vba docx
edited May 23 '17 at 12:41
Community♦
1
asked Mar 22 '13 at 21:37
Tal Galili
1,360102845
edited May 23 '17 at 12:41
Community♦
1
asked Mar 22 '13 at 21:37
Tal Galili
1,360102845
edited May 23 '17 at 12:41
Community♦
1
edited May 23 '17 at 12:41
Community♦
1
edited May 23 '17 at 12:41
Community♦
1
1
asked Mar 22 '13 at 21:37
Tal Galili
1,360102845
asked Mar 22 '13 at 21:37
Tal Galili
1,360102845
asked Mar 22 '13 at 21:37
Tal Galili
1,360102845
1,360102845
1
I'm sure this is possible with VBA, i.e. iterate through all embedded images in the doc and resize them to fit within the current page margins.
– Karan
Mar 23 '13 at 1:20
Thanks Karan, should I ask this in SO than?
– Tal Galili
Mar 23 '13 at 1:22
Macros are on-topic here too, so I'd recommend waiting for answers here for a while.
– Karan
Mar 23 '13 at 1:24
add a comment |
1
I'm sure this is possible with VBA, i.e. iterate through all embedded images in the doc and resize them to fit within the current page margins.
– Karan
Mar 23 '13 at 1:20
Thanks Karan, should I ask this in SO than?
– Tal Galili
Mar 23 '13 at 1:22
Macros are on-topic here too, so I'd recommend waiting for answers here for a while.
– Karan
Mar 23 '13 at 1:24
1
1
I'm sure this is possible with VBA, i.e. iterate through all embedded images in the doc and resize them to fit within the current page margins.
– Karan
Mar 23 '13 at 1:20
I'm sure this is possible with VBA, i.e. iterate through all embedded images in the doc and resize them to fit within the current page margins.
– Karan
Mar 23 '13 at 1:20
Thanks Karan, should I ask this in SO than?
– Tal Galili
Mar 23 '13 at 1:22
Thanks Karan, should I ask this in SO than?
– Tal Galili
Mar 23 '13 at 1:22
Macros are on-topic here too, so I'd recommend waiting for answers here for a while.
– Karan
Mar 23 '13 at 1:24
Macros are on-topic here too, so I'd recommend waiting for answers here for a while.
– Karan
Mar 23 '13 at 1:24
add a comment |
2 Answers
2
active
oldest
votes
up vote
0
down vote
Reading Visual Basic Macro in Word to Resize/Center/Delete All Images, How to resize all images in Word document and How can I resize a table to fit the page's width fixed the Kelly Tessena Keck solution a bit.
Now it's working with any available page width (don't forget to fix height, if needed, too) :
Sub PicturesFitPageWidth()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
'Calculate usable width of page
With ActiveDocument.PageSetup
WidthAvail = .PageWidth - .LeftMargin - .RightMargin
End With
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
answered May 28 at 20:20
WebComer
995
add a comment |
up vote
0
down vote
You can do this with the following VBA code. It counts the shapes in the document, checks their width against the available space on the page, and resizes if necessary.
Note that Word has two different collections for Shapes and InlineShapes, hence the two different For loops. Also, it uses a series of If/ElseIf statements to identify the page width based on standard paper sizes. Currently, the only options are letter size in either portrait or landscape, but you can add more ElseIfs for any paper sizes you need.
Sub ResizePic()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
RightMar = ActiveDocument.PageSetup.RightMargin
LeftMar = ActiveDocument.PageSetup.LeftMargin
PaperType = ActiveDocument.PageSetup.PaperSize
PageLayout = ActiveDocument.PageSetup.Orientation
'Sets up variables for margin sizes, paper type, and page layout.
' This is used to find the usable width of the document, which is the max width for the picture.
If PaperType = wdPaperLetter And PageLayout = wdPortrait Then
WidthAvail = InchesToPoints(8.5) - (LeftMar + RightMar)
ElseIf PaperType = wdPaperLetter And PageLayout = wdLandscape Then
WidthAvail = InchesToPoints(11) - (LeftMar + RightMar)
End If
'Identifies the usable width of the document, based on margins and paper size.
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
edited Sep 9 at 2:16
phuclv
8,68063688
answered Dec 9 '14 at 20:19
Kelly Tessena Keck
590217
For me it just looped through the pictures in document and they are gone from my view(. It's a pity as the script looks like a kind of working one.
– WebComer
May 28 at 15:29
I think the script should check if the shape is a pic, as for a document with just two pics it did find 5 shapes and set their width to zero, so they did gone from the view.
– WebComer
May 28 at 15:47
add a comment |
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
up vote
0
down vote
Reading Visual Basic Macro in Word to Resize/Center/Delete All Images, How to resize all images in Word document and How can I resize a table to fit the page's width fixed the Kelly Tessena Keck solution a bit.
Now it's working with any available page width (don't forget to fix height, if needed, too) :
Sub PicturesFitPageWidth()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
'Calculate usable width of page
With ActiveDocument.PageSetup
WidthAvail = .PageWidth - .LeftMargin - .RightMargin
End With
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
answered May 28 at 20:20
WebComer
995
add a comment |
up vote
0
down vote
Reading Visual Basic Macro in Word to Resize/Center/Delete All Images, How to resize all images in Word document and How can I resize a table to fit the page's width fixed the Kelly Tessena Keck solution a bit.
Now it's working with any available page width (don't forget to fix height, if needed, too) :
Sub PicturesFitPageWidth()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
'Calculate usable width of page
With ActiveDocument.PageSetup
WidthAvail = .PageWidth - .LeftMargin - .RightMargin
End With
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
answered May 28 at 20:20
WebComer
995
add a comment |
up vote
0
down vote
up vote
0
down vote
Reading Visual Basic Macro in Word to Resize/Center/Delete All Images, How to resize all images in Word document and How can I resize a table to fit the page's width fixed the Kelly Tessena Keck solution a bit.
Now it's working with any available page width (don't forget to fix height, if needed, too) :
Sub PicturesFitPageWidth()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
'Calculate usable width of page
With ActiveDocument.PageSetup
WidthAvail = .PageWidth - .LeftMargin - .RightMargin
End With
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
answered May 28 at 20:20
WebComer
995
Reading Visual Basic Macro in Word to Resize/Center/Delete All Images, How to resize all images in Word document and How can I resize a table to fit the page's width fixed the Kelly Tessena Keck solution a bit.
Now it's working with any available page width (don't forget to fix height, if needed, too) :
Sub PicturesFitPageWidth()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
'Calculate usable width of page
With ActiveDocument.PageSetup
WidthAvail = .PageWidth - .LeftMargin - .RightMargin
End With
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
answered May 28 at 20:20
WebComer
995
answered May 28 at 20:20
WebComer
995
answered May 28 at 20:20
WebComer
995
answered May 28 at 20:20
WebComer
995
995
add a comment |
add a comment |
up vote
0
down vote
You can do this with the following VBA code. It counts the shapes in the document, checks their width against the available space on the page, and resizes if necessary.
Note that Word has two different collections for Shapes and InlineShapes, hence the two different For loops. Also, it uses a series of If/ElseIf statements to identify the page width based on standard paper sizes. Currently, the only options are letter size in either portrait or landscape, but you can add more ElseIfs for any paper sizes you need.
Sub ResizePic()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
RightMar = ActiveDocument.PageSetup.RightMargin
LeftMar = ActiveDocument.PageSetup.LeftMargin
PaperType = ActiveDocument.PageSetup.PaperSize
PageLayout = ActiveDocument.PageSetup.Orientation
'Sets up variables for margin sizes, paper type, and page layout.
' This is used to find the usable width of the document, which is the max width for the picture.
If PaperType = wdPaperLetter And PageLayout = wdPortrait Then
WidthAvail = InchesToPoints(8.5) - (LeftMar + RightMar)
ElseIf PaperType = wdPaperLetter And PageLayout = wdLandscape Then
WidthAvail = InchesToPoints(11) - (LeftMar + RightMar)
End If
'Identifies the usable width of the document, based on margins and paper size.
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
edited Sep 9 at 2:16
phuclv
8,68063688
answered Dec 9 '14 at 20:19
Kelly Tessena Keck
590217
For me it just looped through the pictures in document and they are gone from my view(. It's a pity as the script looks like a kind of working one.
– WebComer
May 28 at 15:29
I think the script should check if the shape is a pic, as for a document with just two pics it did find 5 shapes and set their width to zero, so they did gone from the view.
– WebComer
May 28 at 15:47
add a comment |
up vote
0
down vote
You can do this with the following VBA code. It counts the shapes in the document, checks their width against the available space on the page, and resizes if necessary.
Note that Word has two different collections for Shapes and InlineShapes, hence the two different For loops. Also, it uses a series of If/ElseIf statements to identify the page width based on standard paper sizes. Currently, the only options are letter size in either portrait or landscape, but you can add more ElseIfs for any paper sizes you need.
Sub ResizePic()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
RightMar = ActiveDocument.PageSetup.RightMargin
LeftMar = ActiveDocument.PageSetup.LeftMargin
PaperType = ActiveDocument.PageSetup.PaperSize
PageLayout = ActiveDocument.PageSetup.Orientation
'Sets up variables for margin sizes, paper type, and page layout.
' This is used to find the usable width of the document, which is the max width for the picture.
If PaperType = wdPaperLetter And PageLayout = wdPortrait Then
WidthAvail = InchesToPoints(8.5) - (LeftMar + RightMar)
ElseIf PaperType = wdPaperLetter And PageLayout = wdLandscape Then
WidthAvail = InchesToPoints(11) - (LeftMar + RightMar)
End If
'Identifies the usable width of the document, based on margins and paper size.
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
edited Sep 9 at 2:16
phuclv
8,68063688
answered Dec 9 '14 at 20:19
Kelly Tessena Keck
590217
For me it just looped through the pictures in document and they are gone from my view(. It's a pity as the script looks like a kind of working one.
– WebComer
May 28 at 15:29
I think the script should check if the shape is a pic, as for a document with just two pics it did find 5 shapes and set their width to zero, so they did gone from the view.
– WebComer
May 28 at 15:47
add a comment |
up vote
0
down vote
up vote
0
down vote
You can do this with the following VBA code. It counts the shapes in the document, checks their width against the available space on the page, and resizes if necessary.
Note that Word has two different collections for Shapes and InlineShapes, hence the two different For loops. Also, it uses a series of If/ElseIf statements to identify the page width based on standard paper sizes. Currently, the only options are letter size in either portrait or landscape, but you can add more ElseIfs for any paper sizes you need.
Sub ResizePic()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
RightMar = ActiveDocument.PageSetup.RightMargin
LeftMar = ActiveDocument.PageSetup.LeftMargin
PaperType = ActiveDocument.PageSetup.PaperSize
PageLayout = ActiveDocument.PageSetup.Orientation
'Sets up variables for margin sizes, paper type, and page layout.
' This is used to find the usable width of the document, which is the max width for the picture.
If PaperType = wdPaperLetter And PageLayout = wdPortrait Then
WidthAvail = InchesToPoints(8.5) - (LeftMar + RightMar)
ElseIf PaperType = wdPaperLetter And PageLayout = wdLandscape Then
WidthAvail = InchesToPoints(11) - (LeftMar + RightMar)
End If
'Identifies the usable width of the document, based on margins and paper size.
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
edited Sep 9 at 2:16
phuclv
8,68063688
answered Dec 9 '14 at 20:19
Kelly Tessena Keck
590217
You can do this with the following VBA code. It counts the shapes in the document, checks their width against the available space on the page, and resizes if necessary.
Note that Word has two different collections for Shapes and InlineShapes, hence the two different For loops. Also, it uses a series of If/ElseIf statements to identify the page width based on standard paper sizes. Currently, the only options are letter size in either portrait or landscape, but you can add more ElseIfs for any paper sizes you need.
Sub ResizePic()
' ResizePic Macro
' Resizes an image
Shapes = ActiveDocument.Shapes.Count
InLines = ActiveDocument.InlineShapes.Count
'Sets the variables to loop through all shapes in the document, one for shapes and one for inline shapes.
RightMar = ActiveDocument.PageSetup.RightMargin
LeftMar = ActiveDocument.PageSetup.LeftMargin
PaperType = ActiveDocument.PageSetup.PaperSize
PageLayout = ActiveDocument.PageSetup.Orientation
'Sets up variables for margin sizes, paper type, and page layout.
' This is used to find the usable width of the document, which is the max width for the picture.
If PaperType = wdPaperLetter And PageLayout = wdPortrait Then
WidthAvail = InchesToPoints(8.5) - (LeftMar + RightMar)
ElseIf PaperType = wdPaperLetter And PageLayout = wdLandscape Then
WidthAvail = InchesToPoints(11) - (LeftMar + RightMar)
End If
'Identifies the usable width of the document, based on margins and paper size.
For ShapeLoop = 1 To Shapes
MsgBox Prompt:="Shape " & ShapeLoop & " width: " & ActiveDocument.Shapes(ShapeLoop).Width
If ActiveDocument.Shapes(ShapeLoop).Width > WidthAvail Then
ActiveDocument.Shapes(ShapeLoop).Width = WidthAvail
End If
Next ShapeLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
For InLineLoop = 1 To InLines
MsgBox Prompt:="Inline " & InLineLoop & " width: " & ActiveDocument.InlineShapes(InLineLoop).Width
If ActiveDocument.InlineShapes(InLineLoop).Width > WidthAvail Then
ActiveDocument.InlineShapes(InLineLoop).Width = WidthAvail
End If
Next InLineLoop
'Loops through all shapes in the document. Checks to see if they're too wide, and if they are, resizes them.
End Sub
edited Sep 9 at 2:16
phuclv
8,68063688
answered Dec 9 '14 at 20:19
Kelly Tessena Keck
590217
edited Sep 9 at 2:16
phuclv
8,68063688
edited Sep 9 at 2:16
phuclv
8,68063688
edited Sep 9 at 2:16
phuclv
8,68063688
8,68063688
answered Dec 9 '14 at 20:19
Kelly Tessena Keck
590217
answered Dec 9 '14 at 20:19
Kelly Tessena Keck
590217
answered Dec 9 '14 at 20:19
Kelly Tessena Keck
590217
590217
For me it just looped through the pictures in document and they are gone from my view(. It's a pity as the script looks like a kind of working one.
– WebComer
May 28 at 15:29
I think the script should check if the shape is a pic, as for a document with just two pics it did find 5 shapes and set their width to zero, so they did gone from the view.
– WebComer
May 28 at 15:47
add a comment |
For me it just looped through the pictures in document and they are gone from my view(. It's a pity as the script looks like a kind of working one.
– WebComer
May 28 at 15:29
I think the script should check if the shape is a pic, as for a document with just two pics it did find 5 shapes and set their width to zero, so they did gone from the view.
– WebComer
May 28 at 15:47
For me it just looped through the pictures in document and they are gone from my view(. It's a pity as the script looks like a kind of working one.
– WebComer
May 28 at 15:29
For me it just looped through the pictures in document and they are gone from my view(. It's a pity as the script looks like a kind of working one.
– WebComer
May 28 at 15:29
I think the script should check if the shape is a pic, as for a document with just two pics it did find 5 shapes and set their width to zero, so they did gone from the view.
– WebComer
May 28 at 15:47
I think the script should check if the shape is a pic, as for a document with just two pics it did find 5 shapes and set their width to zero, so they did gone from the view.
– WebComer
May 28 at 15:47
add a comment |
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f570121%2ffitting-images-to-documents-margins-in-a-docx-file%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
1
I'm sure this is possible with VBA, i.e. iterate through all embedded images in the doc and resize them to fit within the current page margins.
– Karan
Mar 23 '13 at 1:20
Thanks Karan, should I ask this in SO than?
– Tal Galili
Mar 23 '13 at 1:22
Macros are on-topic here too, so I'd recommend waiting for answers here for a while.
– Karan
Mar 23 '13 at 1:24