Minimaliseren Excel vanuit VBA-Word na Fields update

[Grijsbert]

Goedemorgen,

Ik wil graag vanuit Word een excel-applicatie minimaliseren.
Die excel opent, doordat er in dat Word-bestand gekoppelde grafieken worden bijgewerkt na drukken op een MacroButton
De Macro die via een MacroButton vanuit Word wordt gestart luidt:

Sub Fields_Update()

'Code om bericht vooraf weer te geven

MsgBox "De gegevens worden venieuwd. Dit kan enkele minuten duren. Een ogenblik geduld a.u.b.", vbOKOnly + vbInformation, "Werkinstructie"

'Code om grafieken en Excel-objecten te vernieuwen

ThisDocument.Fields.Update
ActiveDocument.Shapes.Range(Array("Object 26", "Object 18")).Select
Selection.Fields.Update

'Code om de excel-applicatie te minimaliseren


End Sub

Als de macro klaar is, staat de excel applicatie voor mijn neus. Alle actieve vensters zijn afgesloten.
Nu zou ik graag de excel-applicatie willen minimaliseren, zodat het Word-document meteen na het vernieuwen van de gegevens zichtbaar is.

Wat moet ik toevoegen aan de macro om dit voor elkaar te krijgen?

Alvast bedankt!

 

[edmoor]

Plaats eens een voorbeeld van beide documenten.

 

[OctaFish]

Dat is toch helemaal niet nodig? Waarom zou je Excel openen om de grafiek te synchroniseren?

 

[Grijsbert]

Nou het punt is, dat als ik de velden bijwerk, Word dan zelf besluit om excel te openen en de gegevens bij te werken.
Uiteraard krijg ik ook een startmelding om de koppeling bij te werken, maar ik wil ook graag tussentijds bij kunnen werken als locatie of datumbereik vanuit het Word-bestand zijn aangepast.

 

[Grijsbert]

Ik heb het nu zo opgelost en dat werkt:

'Word-venster zichtbaar na bijwerken gegevens

    On Error GoTo ErrorHandler

   Dim appWord As Word.Application

   Set appWord = GetObject(, "Word.Application")

   'Your code here

ErrorHandlerExit:
   Set appWord = Nothing
   Exit Sub

ErrorHandler:
   If Err = 429 Then
      'Word is not running; open Word with CreateObject
      Set appWord = CreateObject("Word.Application")
      Resume Next
   Else
      MsgBox "Error No: " & Err.Number _
         & " in *** procedure" _
         & "; Description: " & Err.Description
      Resume ErrorHandlerExit
   End If

 

[OctaFish]

Nu nog je code opmaken met de CODE tag en je maakt de helpers ook nog blij

 

[Grijsbert]

Thanks OctaFish