Как добавить офисный график в слове - PullRequest
Новая
       5

Как добавить офисный график в слове

3 голосов
/ 10 сентября 2010

Привет всем, это мой первый вопрос здесь.

Я хочу добавить Office Graph в Word 2007, используя C # 4.0,

Я использую Office 2007 word, для более качественных диаграмм, таких как 3D Bubble. Моя задача - создать граф и таблицу из базы данных sql.Я сделал это, используя диаграмму Excel, затем скопировал диаграмму как изображение в слове.

Теперь я хочу добавить саму диаграмму в слово, чтобы пользователь мог изменить диаграмму или ее значение.в настоящее время я делаю этот код. 

       object missing = Type.Missing;          

        Word.Application application = new
        Microsoft.Office.Interop.Word.Application();
        application.Visible = true;
        Word.Document document = application.Documents.Add(ref missing, ref missing, ref missing,
        ref missing);
        Random rd = new Random();

        objchart = (Graph.Chart)document.Shapes.AddOLEObject("MSGraph.Chart.8").OLEFormat.Object;
        dataSheet = objchart.Application.DataSheet;
        for (int r = 1; r < 10; r++)
        { for (int c = 1; c < 5; c++) { dataSheet.Cells[r, c] = rd.Next(10, 50); } }

приведенный ниже код работает нормально, но результат не так хорош, как я хочу.если я использую «Excel.Chart.8», застрахованный от «MSGraph.Chart.8», это дает мне ошибку.

1 Ответ

1 голос
/ 13 сентября 2010

О. здесь нет тела, дайте ответ на мой вопрос. позвольте мне помочь себе. Я написал этот код для вышеупомянутой проблемы и ее слова хорошо. надеюсь, вам тоже поможет. 

     object missing = Type.Missing;

        Word.Application application = new Microsoft.Office.Interop.Word.Application();
        application.Visible = true;
        Word.Document document = application.Documents.Add(ref missing, ref missing, ref missing, ref missing);
        object classtype = "Excel.Chart.8";
        object oEndOfDoc = "\\endofdoc";
        Word.InlineShape wrdInlineShape = document.InlineShapes.AddOLEObject(classtype);
        if (wrdInlineShape.OLEFormat.ProgID == "Excel.Chart.8")
        {
            // Word doesn't keep all of its embedded objects in the running state all the time.
            // In order to access the interface you first have to ensure the object is in the running state,
            // ie: OLEFormat.Activate() (or something)
            object verb = Word.WdOLEVerb.wdOLEVerbHide;
            wrdInlineShape.OLEFormat.DoVerb(ref verb);
            Random rn = new Random();
            Excel.Workbook obook = (Excel.Workbook)wrdInlineShape.OLEFormat.Object;
            Excel.Worksheet sheet = (Excel.Worksheet)obook.Worksheets["Sheet1"];
            for (int i = 1; i <= 7; i++)
            {
                for (int c = 1; c <= 4; c++)
                {
                    ((Excel.Range)sheet.Cells[i, c]).Value = rn.Next(10, 50);
                    ((Excel.Range)sheet.Cells[i, c]).Value = rn.Next(10, 50);
                }
            }
            wrdInlineShape.Width = 400;

            obook.ActiveChart.ChartType = Excel.XlChartType.xlBubble3DEffect;
            Word.Range wrdRng = document.Bookmarks.get_Item(ref oEndOfDoc).Range;
            object oRng = document.Bookmarks.get_Item(ref oEndOfDoc).Range;
            wrdRng = document.Bookmarks.get_Item(ref oEndOfDoc).Range;
            sheet.UsedRange.Copy();
            document.SetDefaultTableStyle("Light List - Accent 4", false);
            for (int i = 0; i < 5; i++)
            {
                wrdRng.InsertBreak(Word.WdBreakType.wdLineBreak); 
            }
            wrdRng.PasteExcelTable(true, true, false);
            wrdInlineShape.ConvertToShape();
        }
        // quit the word

Привет, если у вас есть еще один красивый код для вышеупомянутого, пожалуйста, опубликуйте его

...