Hallo Forum,
ich hab ein Problem, welches ich gerne mit VBA lösen möchte.
Leider fehlt mir aber der richtige Ansatzpunkt.
Vielleicht ist hier jemand, der mir helfen kann.
Folgendes Problem:
In der unten aufgeführten Routine werden Hardcopy’s in Word eingebettet.
Ich möchte gerne diese per OLE eingebetteten Hardcopys:
Selection.InlineShapes.AddOLEObject ClassType:=„HemodynamicViewer.Document“, _
FileName:=GetVariable(„HardcopyFileName“), _
LinkToFile:=True, _
DisplayAsIcon:=False
ebenfalls in ein Folder als Grafik speichern.(Vorzugsweise als .png)
In Word lässt sich dieses OLE Objekt problemlos per Copy/Paste in einen Imageviewer einfügen. (z.B. Paint)
Allerdings soll dies automatiert erfolgen
Hat da jemand eine Idee?
Würde mich über Lösungsvorschläge sehr freuen
Viele Grüße
Holger
PS: Der Grund für diese recht umständliche Vorgehensweise ist, das die einzige Möglichkeit (ohne Programmcode Änderung) an diese Bilder zu kommen ist dieser Weg
Hier die
Vollständige SUB:
Sub InsertHardcopy()
On Error GoTo errLabel
'If (HCNumber = 2) Then
’ Selection.InsertBreak Type:=wdPageBreak
’ HCNumber = 0
’ End If
’ If (HCNumber = 0) Then
’ TypePatientBasicData (GetVariable(„Condition“))
’ Selection.TypeParagraph
’ End If
’ Selection.Font.Size = 10
’ Selection.TypeText Text:=GetVariable(„HardcopyInfo“)
’ Selection.TypeParagraph
Selection.InlineShapes.AddOLEObject ClassType:=„HemodynamicViewer.Document“, _
FileName:=GetVariable(„HardcopyFileName“), _
LinkToFile:=True, _
DisplayAsIcon:=False
HCNumber = HCNumber + 1
Selection.TypeParagraph
exitLabel:
Exit Sub
errLabel:
Resume exitLabel:
End Sub