Export All Images - Macro Improvement - Reg

Sub ExportAllImages()
Const SavePath As String = "c:\temp\"
Dim Page As Page
Dim Shape As Shape
Dim Index As Long
ActiveDocument.Unit = cdrPixel
For Each Page In ActiveDocument.Pages
Page.Activate
For Each Shape In Page.SelectableShapes.FindShapes(Type:=cdrBitmapShape)
Index = Index + 1
Shape.CreateSelection
ActiveDocument.ExportBitmap( _
SavePath & Index & ".tif", _
cdrTIFF, _
cdrSelection, _
Shape.Bitmap.Mode, _
Shape.Bitmap.SizeWidth, _
Shape.Bitmap.SizeHeight, _
, , , , _
Shape.Bitmap.Transparent, True _
).Finish
Next Shape
Next Page
End Sub

..........

Please some one edit this macro to export all images including the powerclip inside images also. 

This macro is only exporting the images, but not in the powerclip inside images.

Hence please update