如何从C＃中的Excel.Worksheet中删除图像

Question

I'm working on a C# document level customization VSTO for Excel. In it, I will come across some worksheets that have some Bitmaps put in them.

What is the best way to clear them?

In VBA the answer would be as simple as taking a Worksheet object then calling the method WorksheetX.Pictures.Clear() . I tried a sort of direct C# translation of that:

Excel.Worksheet TempSheet = Globals.ThisWorkbook.Worksheets(IndexVar);
TempSheet.Pictures.Clear();

But unfortunately Worksheet.Pictures has no available methods or properties. I next thought I could find them in Worksheet.OLEObjects , but even going through that collection 1 by 1, I found that the images where not stored there.

I then tried to take a closer look at the MS list of Excel.Worksheet methods (and properties), and the only thing I could find that was close was Excel.Worksheet.Pictures , which contains the lovely note:

This API supports the Visual Studio infrastructure and is not intended to be used directly from your code.

So now I'm back at my original question, how do I get the images contained within a worksheet? Is there something obvious I'm missing?

My current workaround is to can a VBA micro, but that is exceedingly cumbersome. I'd rather handle it all in C# to avoid any VBA if possible.

If I have more than 1 picture in the sheet, I am able to run:

Excel.Worksheet TempSheet = Globals.ThisWorkbook.Worksheets(IndexVar);
foreach (void XXX in TempSheet.Pictures) {
    if (XXX.Index > 1) {
        XXX.Delete();
    }
}

And that will leave 1 image behind (I guess it's 1 based not 0 based counting)

But if I just try:

Excel.Worksheet TempSheet = Globals.ThisWorkbook.Worksheets(IndexVar);
foreach (void XXX in TempSheet.Pictures) {

        XXX.Delete();

}

Then it causes Excel to crash.

Answer 1

I'm not an user of VSTO, but it seems that you are left with one picture as you are deleting all pictures with index above 1. I suggest to change this line:

if (XXX.Index > 1) {

to:

if (XXX.Index >= 1) {

Hopefully it will delete all now.

Answer 2

First identify the picture count and delete.

The below line of code will help you to identify the count of pictures in the workseet.

WorkSheet.Pictures().Count