How to delete figure in an excel file

3 次查看（过去 30 天）
Christe Antoine
Christe Antoine 2013-9-16
编辑： Walter Roberson 2018-8-13
Hi,
I would like to directly delete all the figures in an excel file from MATLAB. I can select all the figures using activex but I cant' figure out a way to delete them.
My code:
filename_out = 'Libraries\Documents\TEST.xlsx'; % filename
Excel = actxserver('Excel.Application'); % open the connection
set(Excel,'Visible',1);
Excel.Workbooks.Open(filename_out); % open excel file
worksheets = Excel.sheets;
numSheets = worksheets.Count; % count the number of sheets
for s = 1 : numSheets % do a loop for all sheets
worksheets.Item(s).Shapes.SelectAll; % select the figure
  • % How to delete selection? *
end
Thanks for any help!

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

采纳的回答

Christe Antoine
Christe Antoine 2013-9-23
编辑：Walter Roberson 2018-8-13
I finally found a solution:
worksheets = Excel.sheets;
numSheets = worksheets.Count;
for s = 1 : numSheets % Delete all shapes in Excel
myshapes = worksheets.Item(s).Shapes;
for j = myshapes.Count:-1:1
myshapes.Item(j).Delete
end
end
source: http://stackoverflow.com/questions/18958994/delete-excel-figures-from-matlab

更多回答（2 个）

Image Analyst
Image Analyst 2013-9-16
Go to the sheet. Start recording a macro. Then do your operations (deleting things, etc.). Then stop recording and look at the macro source code and see what code Excel put in there. Then transfer that code to your MATLAB program.
Christe Antoine
Christe Antoine 2013-9-17
No, I already tried to do something like that. The excel macro give me something like:
ActiveSheet.Shapes.Range(Array("Picture11","Picture12").Select
Selection.Delete
I have no problem with the figure selection in MATLAB (worksheets.Item(s).Shapes.SelectAll), but Selection.Delete give me an error:
"Undefined variable "Selection" or function "Selection.Delete".
Any other idea?
Thank for your help!

类别

在 Help Center 和 File Exchange 中查找有关 Use COM Objects in MATLAB 的更多信息

标签

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by