how to size and paste plots to Excel

3 次查看（过去 30 天）

Nahir 2014-12-9

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/166065-how-to-size-and-paste-plots-to-excel

I am reading a csv file into matlab from an IMU and want to plot the analyzed data (accelerations and velocities) into an excel file. I am able to designate the start point of each plot using the "range = (whichever cell I choose)" command, but am unable to resize the plots to get them to fit on one sheet. I am using matlab 2014b and office 2013.

Any help will be much appreciated.

My attempt at coding (a bit busy as I've been trying different things):

 plot(time_axis,IMU_Accel);
    grid on;
    ylim([-5,5]);
    xlabel('Time(sec)');
    ylabel('Acc_x_b (m/sec^2)');
    print -dmeta;   %.................Copying to clipboard
    FILE  = filename1;
    SheetIndex=1;
    Range ='K1';
    %.............excel COM object............
    Excel = actxserver ('Excel.Application');
    Excel.Visible = 1;
    if ~exist(FILE,'file')
        ExcelWorkbook=Excel.Workbooks.Add;
        ExcelWorkbook.SaveAs(FILE);
        ExcelWorkbook.Close(false);
    end
    invoke(Excel.Workbooks,'Open',FILE); %Open the file
    Sheets = Excel.ActiveWorkBook.Sheets;
    if gt(SheetIndex,3)
        for i=1:SheetIndex-3
            Excel.ActiveWorkBook.Sheets.Add;
        end
    end
    ActiveSheet = get(Sheets, 'Item', SheetIndex);
    %     set(ActiveSheet,'Name',SheetName)
    ActiveSheet.Select;
    ActivesheetRange = get(ActiveSheet,'Range',Range);
    ActivesheetRange.Select;
    ActivesheetRange.PasteSpecial; %.................Pasting the figure to the selected location
    Excel.ActiveWorkbook.Save% Now save the workbook
    if eq(Excel.ActiveWorkbook.Saved,1)
        Excel.ActiveWorkbook.Close;
    else
        Excel.ActiveWorkbook.Save;
    end
    invoke(Excel, 'Quit');   % Quit Excel
    close Figure 1