Excel activities deleting image and showing formulas

For image deletion from excel I use the following VB code invoke.
It however deletes ALL images.
The in_argument is the value returned by activity “Excel Application Scope”
You need to add Microsoft.Office.Interop.Excel into Imports.

in_argument objXLS as UiPath.Excel.WorkbookApplication

Dim objWorkbook As microsoft.Office.Interop.Excel.Workbook
objWorkbook = objXLS.CurrentWorkbook

For Each ws As Worksheet In objWorkbook.Sheets
 For Each sh As microsoft.Office.Interop.Excel.Shape In ws.Shapes
 Next sh
Next ws