Thread: Optimizing images in document and creating text boxes
View Single Post
 
Old 12-12-2021, 03:22 AM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,161
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
Your AOptimize subroutine calls the other subs in the wrong order. Just swap the order of these lines
Code:
If answer = vbYes Then
    Call CompressPics
    Call ResizePics
    Call Done
Else
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote