Shazam
10-16-2006, 05:36 PM
Hi everyone,
I have a excel picture that is link to cells. How can we modify this code below to go through all the worksheets in the workbook and covert those excel group objects as jpegs? I tried to put this code below but no luck.
Sub Test()
Dim shtTemp As Worksheet
Dim objShape As Shape
For Each shtTemp In ThisWorkbook.Worksheets
For Each objShape In shtTemp.Shapes
If objShape.Type = msoPicture Then
objShape.Cut
objShape.PasteSpecial Format:="Picture (JPEG)", Link:=False, _
DisplayAsIcon:=False
objShape.Range("E3").Select
End If
Next
Next
End Sub
I have a excel picture that is link to cells. How can we modify this code below to go through all the worksheets in the workbook and covert those excel group objects as jpegs? I tried to put this code below but no luck.
Sub Test()
Dim shtTemp As Worksheet
Dim objShape As Shape
For Each shtTemp In ThisWorkbook.Worksheets
For Each objShape In shtTemp.Shapes
If objShape.Type = msoPicture Then
objShape.Cut
objShape.PasteSpecial Format:="Picture (JPEG)", Link:=False, _
DisplayAsIcon:=False
objShape.Range("E3").Select
End If
Next
Next
End Sub