How to delete figure in an excel file

1 Ansicht (letzte 30 Tage)
Christe  Antoine
Christe Antoine am 16 Sep. 2013
Bearbeitet: Walter Roberson am 13 Aug. 2018
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!

Akzeptierte Antwort

Christe  Antoine
Christe Antoine am 23 Sep. 2013
Bearbeitet: Walter Roberson am 13 Aug. 2018
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

Weitere Antworten (2)

Image Analyst
Image Analyst am 16 Sep. 2013
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 am 17 Sep. 2013
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!

Kategorien

Mehr zu Use COM Objects in MATLAB finden Sie in Help Center und File Exchange

Community Treasure Hunt

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

Start Hunting!

Translated by