Why did the Apple //e make a hideous noise if you inserted the disk upside down?

Meaning of the word "good" in context

Could all three Gorgons turn people to stone, or just Medusa?

How can an inexperienced GM keep a game fun for experienced players?

Why wasn't ASCII designed with a contiguous alphanumeric character order?

Copy group of files (Filename*) to backup (Filename*.bak)

Should Catholics in a state of grace call themselves sinners?

Is it advisable to inform the CEO about his brother accessing his office?

How would one prevent political gerrymandering?

Delete all files from a folder using a bat that match a certain pattern in Windows 10

What election rules and voting rights are guaranteed by the US Constitution?

How does mmorpg store data?

Customs and immigration on a USA-UK-Sweden flight itinerary

I just started; should I accept a farewell lunch for a coworker I don't know?

Can US Supreme Court justices / judges be "rotated" out against their will?

How do I tell my girlfriend she's been buying me books by the wrong author for the last nine months?

Checkmate in 1 on a Tangled Board

Automorphisms and epimorphisms of finite groups

Why didn't Caesar move against Sextus Pompey immediately after Munda?

Can I take Amul cottage cheese from India to Netherlands?

Why would Dementors torture a Death Eater if they are loyal to Voldemort?

Is it OK to throw pebbles and stones in streams, waterfalls, ponds, etc.?

What happens if a caster is surprised while casting a spell with a long casting time?

Having to constantly redo everything because I don't know how to do it

How to instantiate a Graph Chart?

How do you change the size of figures drawn with matplotlib?How do you display code snippets in MS Word preserving format and syntax highlighting?Changing bar colors in bar graphExcel 2010 VBA Deletes ChartUse MS Word VBA to increase weight of axes in graph embedded in a Word documentResize a Chart Object with Excel VBAPopulate data in an unlinked PowerPoint Charthow to use VBA to adjust the data selection range in a powerpoint charthow to Create a varios graphs in excel VBAUnable to copy Excel Map Chart using VBA

1

I am currently trying to create a chart, e.g. a piechart through word vba.

The problem is that the machine(s) where this word vba will be run do not have excel available, only word and ms graph.

I have tried to create a chart with ms graph, but I am not able to make it work.

As from the code below, I can create charts with inlineshapes and chart and I get a nice bar chart presented in the word window.

I am not able to instantiate the chart element for Ms Graph. I found a french guide that shows how it should be done, but I am not able to get the "me.graphique1"-part to make sense.

Inlineshapes

Dim vlChart As Chart

Set vlChart = ActiveDocument.InlineShapes.AddChart2.Chart

Graph

Dim vlChart As Graph.Chart

Set vlChart = Me.Graphique1.Object.Application.Chart

I would expect to be able to create a graph object, but I don't know what I am doing.

vba graph ms-word

share|improve this question

edited Mar 25 at 17:22

Cindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

asked Mar 25 at 15:47

EplenektarEplenektar

822 bronze badges

add a comment | 

1

I am currently trying to create a chart, e.g. a piechart through word vba.

The problem is that the machine(s) where this word vba will be run do not have excel available, only word and ms graph.

I have tried to create a chart with ms graph, but I am not able to make it work.

As from the code below, I can create charts with inlineshapes and chart and I get a nice bar chart presented in the word window.

I am not able to instantiate the chart element for Ms Graph. I found a french guide that shows how it should be done, but I am not able to get the "me.graphique1"-part to make sense.

Inlineshapes

Dim vlChart As Chart

Set vlChart = ActiveDocument.InlineShapes.AddChart2.Chart

Graph

Dim vlChart As Graph.Chart

Set vlChart = Me.Graphique1.Object.Application.Chart

I would expect to be able to create a graph object, but I don't know what I am doing.

vba graph ms-word

share|improve this question

edited Mar 25 at 17:22

Cindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

asked Mar 25 at 15:47

EplenektarEplenektar

822 bronze badges

add a comment | 

I am currently trying to create a chart, e.g. a piechart through word vba.

The problem is that the machine(s) where this word vba will be run do not have excel available, only word and ms graph.

I have tried to create a chart with ms graph, but I am not able to make it work.

As from the code below, I can create charts with inlineshapes and chart and I get a nice bar chart presented in the word window.

I am not able to instantiate the chart element for Ms Graph. I found a french guide that shows how it should be done, but I am not able to get the "me.graphique1"-part to make sense.

Inlineshapes

Dim vlChart As Chart

Set vlChart = ActiveDocument.InlineShapes.AddChart2.Chart

Graph

Dim vlChart As Graph.Chart

Set vlChart = Me.Graphique1.Object.Application.Chart

I would expect to be able to create a graph object, but I don't know what I am doing.

vba graph ms-word

share|improve this question

edited Mar 25 at 17:22

Cindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

asked Mar 25 at 15:47

EplenektarEplenektar

822 bronze badges

Dim vlChart As Chart

Set vlChart = ActiveDocument.InlineShapes.AddChart2.Chart

Dim vlChart As Graph.Chart

Set vlChart = Me.Graphique1.Object.Application.Chart

share|improve this question

edited Mar 25 at 17:22

Cindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

asked Mar 25 at 15:47

EplenektarEplenektar

822 bronze badges

share|improve this question

edited Mar 25 at 17:22

Cindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

asked Mar 25 at 15:47

EplenektarEplenektar

822 bronze badges

edited Mar 25 at 17:22

Cindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

edited Mar 25 at 17:22

Cindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

asked Mar 25 at 15:47

EplenektarEplenektar

822 bronze badges

asked Mar 25 at 15:47

EplenektarEplenektar

822 bronze badges

1 Answer
1

active

oldest

votes

0

No guarantees that this will still work, since MS Graph has long been deprecated. The following code sample demonstrates how to insert an MS Graph object and access its data sheet.

This code requires a reference to the MS Graph object library in VBA Tools/References. I highly recommend you use it, at least while writing the code so that you have Intellisense.

Dim grph as Graph.Chart
Dim grphData as Graph.DataSheet
Dim grphApp as Graph.Application
Dim doc as Word.Document
Dim oleF as Word.OLEFormat
Dim rng as Word.Range

Set doc = ActiveDocument
Set rng = doc.Content
Set oleF = doc.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8", Range:=rng).OLEFormat
oleF.DoVerb
Set grphChart = oleF.Object
Set grphApp = grphChart.Application
Set grphData = grphApp.DataSheet
grphData.Cells.Clear
'Now start entering the data and formatting the chart

share|improve this answer

answered Mar 25 at 17:30

Cindy MeisterCindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thank you very much! Even though MS Graph is very old it is what I need to use in my current situation, excel is not available, so it limits our options to create graphs.
  
  – Eplenektar
  Mar 27 at 15:08
  
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55341603%2fhow-to-instantiate-a-graph-chart%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

No guarantees that this will still work, since MS Graph has long been deprecated. The following code sample demonstrates how to insert an MS Graph object and access its data sheet.

This code requires a reference to the MS Graph object library in VBA Tools/References. I highly recommend you use it, at least while writing the code so that you have Intellisense.

Dim grph as Graph.Chart
Dim grphData as Graph.DataSheet
Dim grphApp as Graph.Application
Dim doc as Word.Document
Dim oleF as Word.OLEFormat
Dim rng as Word.Range

Set doc = ActiveDocument
Set rng = doc.Content
Set oleF = doc.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8", Range:=rng).OLEFormat
oleF.DoVerb
Set grphChart = oleF.Object
Set grphApp = grphChart.Application
Set grphData = grphApp.DataSheet
grphData.Cells.Clear
'Now start entering the data and formatting the chart

share|improve this answer

answered Mar 25 at 17:30

Cindy MeisterCindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thank you very much! Even though MS Graph is very old it is what I need to use in my current situation, excel is not available, so it limits our options to create graphs.
  
  – Eplenektar
  Mar 27 at 15:08
  
  

  
  
  
  

add a comment | 

0

No guarantees that this will still work, since MS Graph has long been deprecated. The following code sample demonstrates how to insert an MS Graph object and access its data sheet.

This code requires a reference to the MS Graph object library in VBA Tools/References. I highly recommend you use it, at least while writing the code so that you have Intellisense.

Dim grph as Graph.Chart
Dim grphData as Graph.DataSheet
Dim grphApp as Graph.Application
Dim doc as Word.Document
Dim oleF as Word.OLEFormat
Dim rng as Word.Range

Set doc = ActiveDocument
Set rng = doc.Content
Set oleF = doc.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8", Range:=rng).OLEFormat
oleF.DoVerb
Set grphChart = oleF.Object
Set grphApp = grphChart.Application
Set grphData = grphApp.DataSheet
grphData.Cells.Clear
'Now start entering the data and formatting the chart

share|improve this answer

answered Mar 25 at 17:30

Cindy MeisterCindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thank you very much! Even though MS Graph is very old it is what I need to use in my current situation, excel is not available, so it limits our options to create graphs.
  
  – Eplenektar
  Mar 27 at 15:08
  
  

  
  
  
  

add a comment | 

No guarantees that this will still work, since MS Graph has long been deprecated. The following code sample demonstrates how to insert an MS Graph object and access its data sheet.

This code requires a reference to the MS Graph object library in VBA Tools/References. I highly recommend you use it, at least while writing the code so that you have Intellisense.

Dim grph as Graph.Chart
Dim grphData as Graph.DataSheet
Dim grphApp as Graph.Application
Dim doc as Word.Document
Dim oleF as Word.OLEFormat
Dim rng as Word.Range

Set doc = ActiveDocument
Set rng = doc.Content
Set oleF = doc.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8", Range:=rng).OLEFormat
oleF.DoVerb
Set grphChart = oleF.Object
Set grphApp = grphChart.Application
Set grphData = grphApp.DataSheet
grphData.Cells.Clear
'Now start entering the data and formatting the chart

share|improve this answer

answered Mar 25 at 17:30

Cindy MeisterCindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

Dim grph as Graph.Chart
Dim grphData as Graph.DataSheet
Dim grphApp as Graph.Application
Dim doc as Word.Document
Dim oleF as Word.OLEFormat
Dim rng as Word.Range

Set doc = ActiveDocument
Set rng = doc.Content
Set oleF = doc.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8", Range:=rng).OLEFormat
oleF.DoVerb
Set grphChart = oleF.Object
Set grphApp = grphChart.Application
Set grphData = grphApp.DataSheet
grphData.Cells.Clear
'Now start entering the data and formatting the chart

share|improve this answer

answered Mar 25 at 17:30

Cindy MeisterCindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

answered Mar 25 at 17:30

Cindy MeisterCindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges

answered Mar 25 at 17:30

Cindy MeisterCindy Meister

17k1010 gold badges2525 silver badges3838 bronze badges