Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Word > Drawing and Graphics

Reply
 
LinkBack Thread Tools Display Modes
  #1  
Old 04-11-2019, 10:23 AM
yvessr's Avatar
yvessr yvessr is offline Windows 10 Office 2016
Novice
 
Join Date: May 2016
Location: Flanders
Posts: 6
yvessr is on a distinguished road
Send a message via AIM to yvessr Send a message via MSN to yvessr
Cool size of imported images ???

I have an issue inserting images in a Word 2019 text document !!!
This is what happens:
I am trying to set up a quality document ready for industrial printer and I have a very strange result when I try to insert images in my text.
The available images are all .JPG with a size of about 1000Ko and when I insert them , reduce and config them to fit correctly in the text the remaining size is about 300Ko which is still OK for printing.
BUT... when I save the document with all inserted images and than open it again later for continuing my work ... suddenly all inserted images appear severely cropped with remaining sizes of about 30Ko (1/10th of original) insufficient for a quality impression !
What's going on ?
How can I save my work without loosing the quality ???


PLEASE can someone help ?
Reply With Quote
  #2  
Old 04-11-2019, 01:16 PM
Charles Kenyon Charles Kenyon is offline Windows 10 Office 2016
Moderator
 
Join Date: Mar 2012
Location: Sun Prairie, Wisconsin
Posts: 5,790
Charles Kenyon is a name known to allCharles Kenyon is a name known to allCharles Kenyon is a name known to allCharles Kenyon is a name known to allCharles Kenyon is a name known to allCharles Kenyon is a name known to all
Default

I am unsure what a Ko is as a unit.


see this support page.
https://support.microsoft.com/en-us/...owerpoint-2007


If at all possible, edit your images in a different program so that when inserted into Word the are sized and cropped exactly as you want them. then insert them into Word.
Reply With Quote
  #3  
Old 04-11-2019, 08:24 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 19,223
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold
Default

Your description suggests you have Word's image compression activated, which gives a maximum resolution of 220ppi. See under File|Options|Advanced>Image Size and Quality.
__________________
Cheers,
Paul Edstein
[MS MVP - Word]
Reply With Quote
  #4  
Old 04-11-2019, 10:54 PM
yvessr's Avatar
yvessr yvessr is offline Windows 10 Office 2019
Novice
 
Join Date: May 2016
Location: Flanders
Posts: 6
yvessr is on a distinguished road
Send a message via AIM to yvessr Send a message via MSN to yvessr
Thumbs up

Quote:
Originally Posted by macropod View Post
Your description suggests you have Word's image compression activated, which gives a maximum resolution of 220ppi. See under File|Options|Advanced>Image Size and Quality.
that's where the problem was ! Thank you very much !!!

ps. in fact the resolution reduction is STANDARD and one have to disable it if wanted ...
Reply With Quote
  #5  
Old 04-12-2019, 01:43 AM
yvessr's Avatar
yvessr yvessr is offline Windows 10 Office 2019
Novice
 
Join Date: May 2016
Location: Flanders
Posts: 6
yvessr is on a distinguished road
Send a message via AIM to yvessr Send a message via MSN to yvessr
Default

... with this change in the options I now have to start over all my image import work again and since there are about 200 images this gives me a lot of extra work.
So I wanted to ask if there is a possibility (macro or other) for all the transferred images to be automatically set to the desired dimensions and style (which is the same for all)?
Reply With Quote
  #6  
Old 04-12-2019, 08:58 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 19,223
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold
Default

For bulk insertion of images into a given location, see: http://www.msofficeforums.com/word-v...html#post47919

For the insertion of images at random selected locations, it is certainly quite possible to have a macro format them all the same. See, for example:
http://www.msofficeforums.com/word-v...tml#post140329
Although that macro only reformats a single, selected, image, one could be written to reformat all images in a document. That said, you should seriously consider re-sizing the images to the equivalent of 300-360ppi/dpi at the final size before inserting them; otherwise you'll merely end up with serious file bloat.
__________________
Cheers,
Paul Edstein
[MS MVP - Word]
Reply With Quote
  #7  
Old 04-13-2019, 07:26 AM
yvessr's Avatar
yvessr yvessr is offline Windows 10 Office 2019
Novice
 
Join Date: May 2016
Location: Flanders
Posts: 6
yvessr is on a distinguished road
Send a message via AIM to yvessr Send a message via MSN to yvessr
Default

That seems great and it would certainly save a lot of work and time for me to insert the .jpg images (about 200 in total) that way, but... I am very sorry not to know at all how to write in VB .

Would it PLEASE be acceptable to write for me such a small macro considering all the pictures (scanned at 300DPI) I have to import one by one must be configured with following 3 basic criteria:

- Layout: with text wrapping/move with text/behind text
- Size: crop/height = 3,5cm
- Style: Picture border/weight/1/2pt

That would be really SUPER !!!
Thanks a lot !
Reply With Quote
  #8  
Old 04-14-2019, 06:29 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 19,223
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold
Default

Try:
Code:
Sub Demo()
Dim iShp As InlineShape, Shp As Shape
With ActiveDocument
  For Each iShp In .InlineShapes
    iShp.ConvertToShape
  Next
  For Each Shp In .Shapes
    With Shp
      .LockAspectRatio = True
      .Height = CentimetersToPoints(3.5)
      .LockAnchor = True
      .WrapFormat.Type = wdWrapBehind
      With .Line
        .ForeColor.RGB = RGB(0, 0, 0)
        .Weight = 0.5
        .Visible = True
        .Style = msoLineSingle
      End With
    End With
  Next
End With
End Sub
__________________
Cheers,
Paul Edstein
[MS MVP - Word]
Reply With Quote
  #9  
Old 04-15-2019, 12:42 AM
yvessr's Avatar
yvessr yvessr is offline Windows 10 Office 2019
Novice
 
Join Date: May 2016
Location: Flanders
Posts: 6
yvessr is on a distinguished road
Send a message via AIM to yvessr Send a message via MSN to yvessr
Default

Hello @macropod,
This is GREAT... I managed to import those VB lines into a personalised 'button' and it works perfectly !
However with one click ALL images in the doc are affected and that was NOT exactly what I wanted because there are a series of illustrations who must remain as they are... It would be much more easier for me if the macro command was only applied on ONE selected image at a time...
Could you PLEASE tell me what VB lines I have to delete to get that result ?
Thanks a lot !!!
Reply With Quote
  #10  
Old 04-15-2019, 01:41 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 19,223
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold
Default

Simply change:
ActiveDocument
to:
Selection
and change:
.Shapes
to:
.ShapeRange
__________________
Cheers,
Paul Edstein
[MS MVP - Word]
Reply With Quote
  #11  
Old 04-15-2019, 07:55 AM
yvessr's Avatar
yvessr yvessr is offline Windows 10 Office 2019
Novice
 
Join Date: May 2016
Location: Flanders
Posts: 6
yvessr is on a distinguished road
Send a message via AIM to yvessr Send a message via MSN to yvessr
Default

GREAT !
Thanks a lot for your extended help; very appreciated !
Yves
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
300dpi Images inserted as thumbnail size darinfan Drawing and Graphics 1 09-06-2018 03:10 PM
ms word 2013 massively increases file size of images inserted into new word document rbg Drawing and Graphics 0 06-05-2016 08:04 AM
Is there a way to make the images "same size"? Jamal NUMAN Word 8 02-10-2015 03:23 AM
Open Type fonts converted to outlines when .eps images are imported rziegler Drawing and Graphics 9 09-20-2012 07:05 PM
Reduce file size of pasted images (Outlook new msg)? Josh Outlook 2 12-01-2010 02:27 AM


All times are GMT -7. The time now is 09:43 AM.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
MSOfficeForums.com is not affiliated with Microsoft