Select Two Images In Excel Using ActiveX

Question

Michael Cappello 2023-6-8

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/1980289-select-two-images-in-excel-using-activex

评论： Michael Cappello 2023-7-28

I have an Excel Workbook which contains two pictures in it. The picture names are "Picture 2" & "Picture 3".

I am able to select either picture by itself like so

E = actxserver('Excel.Application');      % start COM server
E.Visible=1;                              % makes visible
E.Workbooks.Open('myWorkbook.xlsx');      % opens file
E.ActiveSheet.Shapes.('Picture 2').Select   % selects Picture 2

or alternatively

E.ActiveSheet.Shapes.Item(2).Select

I cannot figure out how to select both at once. I tried several different ways but none of them work

E.ActiveSheet.Shapes.('Picture 2','Picture 3').Select
E.ActiveSheet.Shapes.({'Picture 2','Picture 3'}).Select
E.ActiveSheet.Shapes.("Picture 2","Picture 3").Select
E.ActiveSheet.Shapes.(["Picture 2","Picture 3"]).Select

I recorded a macro in Excel selecting the two pictures...

ActiveSheet.Shapes.Range(Array("Picture 2", "Picture 3")).Select

...and notice that the two picture names are grouped in the Array function.

Thanks in advance for any help.

Mike

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Prathamesh 2023-7-21

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/1980289-select-two-images-in-excel-using-activex#answer_1276648

在 MATLAB Online 中打开

Hi,

I understand that you want to select two images from excel.

You can use the “cellfun()” function to create “imagenamecell” object and use it to select multiple images.

Excel = actxserver('Excel.Application'); 
fullFileName = 'C:\path\to\workbook.xlsx'; 
ExcelWorkbook = Excel.Workbooks.Open(fullFileName); 
oSheet = ExcelWorkbook.Sheets.Item(1); 
Shapes = oSheet.Shapes; 
imageNames = {'Picture 2', 'Picture 3'}; 
imageNamesCell = cellfun(@(x) [oSheet.Name, '!', x], imageNames, 'UniformOutput', false); 
Shapes.Select(imageNamesCell); 

Alternatively, you can use a for loop

Excel = actxserver('Excel.Application'); 
fullFileName = 'C:\path\to\workbook.xlsx'; 
ExcelWorkbook = Excel.Workbooks.Open(fullFileName); 
oSheet = ExcelWorkbook.Sheets.Item(1); 
Shapes = oSheet.Shapes; 
imageNames = {'Picture 2', 'Picture 3'}; 
for i = 1:numel(imageNames) 
    shapeName = imageNames{i}; 
    shape = Shapes.Item(shapeName); 
    shape.Select; 
end  

I hope this resolves your issue.

2 个评论
显示无隐藏无

Michael Cappello 2023-7-28

Hi Prathamesh,

Thank you for taking the time to respond. Unfortunately neither method works for me.

When I try to select them all via "Shapes.Select(imageNamesCell);" I get the following error message: "Incorrect number or types of inputs or outputs for function 'Select'."

When I tried the second method, the i'th picture does get selected, but all other pictures are deselected.

Do you know why either of these problems would occur?

I am running Matlab 2022b on Windows 10 using Microsoft® Excel® for Microsoft 365 MSO (Version 2305 Build 16.0.16501.20074) 32-bit.

Michael Cappello 2023-7-28

After some more digging I found this: https://learn.microsoft.com/en-us/office/vba/api/excel.shape.select which helped me to get the second method to work, I changed the line:

from: shape.Select;

from: shape.Select(false);

The argument to shape.Select should be set to true (evidently the default value) to replace the current selection with the specified object. False to extend the current selection to include any previously selected objects and the specified object.

I would still like to know how to select multiple pictures at once.

请先登录，再进行评论。