cheers
Simon

When I try to run the code, when it gets to Sub DisableImageLinks(), I get a Compile Error: User defined type not defined. The problem appears to be at:

ReDim ImageLinks(1 To PictureCount) As ImageLink

PictureCount = 0

For Each Sheet In ActiveWorkbook.Worksheets
For Each Pic In Sheet.Pictures
If Len(Pic.Formula) > 0 Then
PictureCount = PictureCount + 1
ImageLinks(PictureCount).Sheet = Sheet.name
ImageLinks(PictureCount).name = Pic.name
ImageLinks(PictureCount).Formula = Pic.Formula
Pic.Formula = “”
End If
Next
Next

End If
End Sub
Sub EnableImageLinks()
‘ ************************************************************************************
‘ * This procedure relinks images to circumvent Excel bug. *
‘ * See : *
‘ * http://www.dailydoseofexcel.com/archives/2004/04/28/snapshot-of-an-excel-range/ *
‘ * http://support.microsoft.com/kb/211633/en-us *
‘ * Created : K. Pelckmans 12-Jan-2007. *
‘ * Version : 1.0 *
‘ ************************************************************************************
On Error GoTo Handler
Dim i As Integer
For i = 1 To UBound(ImageLinks)
Sheets(ImageLinks(i).Sheet).Pictures(ImageLinks(i).name).Formula = ImageLinks(i).Formula
Next
Handler:
End Sub

Please could you help. Many thanks.

Kristof Pelckmans Says:
January 22nd, 2007 at 2:48 am

I wrote some VBA to remove – reattach the links based on the
Workbook_BeforePrint, Workbook_BeforeSave and Worksheet_Deactivate events.

Thank you very much for your contribution!
You have solved for me the intriguing resizing problem when printing ‘camera links’.

I am creating a complicated excel “apparel submission” workbook that includes capturing pictures of garments. People use “Insert… Picture… From File… ” to place pictures on a nominated area (landing pad).

This landing pad has ‘camera shots’ taken from it and placed in various areas to reproduce information with out recreating the work.
Alas, the printing becomes skewed when live ‘camera shots’ are within the print area.

What you have provided is an instant solution (and worked with no errors first time) for printing ‘camera shots’.

Again, thank you for providing a wonderful solution. It is much appreciated!

Private Sub Workbook_BeforePrint(Cancel As Boolean)
‘Record all links and disable them
DisableImageLinks
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
‘Make sure we are saving the image links
EnableImageLinks
End Sub

‘Enable links when deactivating the sheet with linked images
‘ASSUMPTION : links always point to different sheets
Private Sub Worksheet_Deactivate()
EnableImageLinks
End Sub

The corresponding VBA code :

‘Private variables to hold state image links
Type ImageLink
Sheet As String
name As String
Formula As String
End Type

Private ImageLinks() As ImageLink

Sub DisableImageLinks()
‘ ************************************************************************************
‘ * This procedure removes all image links and puts them in an array. *
‘ * See : *
‘ * http://www.dailydoseofexcel.com/archives/2004/04/28/snapshot-of-an-excel-range/ *
‘ * http://support.microsoft.com/kb/211633/en-us *
‘ * Created : K. Pelckmans 12-Jan-2007. *
‘ * Version : 1.0 *
‘ ************************************************************************************
Dim Pic As Picture, PictureCount As Integer, Sheet As Worksheet
PictureCount = 0

For Each Sheet In ActiveWorkbook.Worksheets
For Each Pic In Sheet.Pictures
If Len(Pic.Formula) > 0 Then
PictureCount = PictureCount + 1
End If
Next
Next

If PictureCount > 0 Then
ReDim ImageLinks(1 To PictureCount) As ImageLink

PictureCount = 0

For Each Sheet In ActiveWorkbook.Worksheets
For Each Pic In Sheet.Pictures
If Len(Pic.Formula) > 0 Then
PictureCount = PictureCount + 1
ImageLinks(PictureCount).Sheet = Sheet.name
ImageLinks(PictureCount).name = Pic.name
ImageLinks(PictureCount).Formula = Pic.Formula
Pic.Formula = “”
End If
Next
Next
End If
End Sub
Sub EnableImageLinks()
‘ ************************************************************************************
‘ * This procedure relinks images to circumvent Excel bug. *
‘ * See : *
‘ * http://www.dailydoseofexcel.com/archives/2004/04/28/snapshot-of-an-excel-range/ *
‘ * http://support.microsoft.com/kb/211633/en-us *
‘ * Created : K. Pelckmans 12-Jan-2007. *
‘ * Version : 1.0 *
‘ ************************************************************************************
On Error GoTo Handler
Dim i As Integer
For i = 1 To UBound(ImageLinks)
Sheets(ImageLinks(i).Sheet).Pictures(ImageLinks(i).name).Formula = ImageLinks(i).Formula
Next
Handler:
End Sub

My only workaround as been to remove the link before printing.