Guten Tag zusammen,
ich habe folgendes vor: Ich möchte einen Bereich von Excel kopieren und dieser Bereich in einer Word Datei einfügen. (als Bild)
Bisher hat nur die Lösung geklappt, dass ich den Bereich exportiere als jpeg Datei und diese anschließend in Word einfüge. (wird aber so verpixelt)
Kann man nicht einfach ein Bereich kopieren, dann als Einfügeoption "Bild" in Word einsetzen? Von Hand geht es ja, also muss dafür bestimmt auch einen Befehl geben. Leider finde ich diesen nicht. :(
Mit welche Befehle kann ich die Höhe des Bilds steuern?
Vielen Dank für eure Hilfe!!! :)
Hier ein Auszug vom aktuellen Code:
Sub Berechnungsdatei()
Dim wdApp As Object
Dim wdoc As Object
Dim ab As Byte
Dim BildName As String
'Dim strPath As Object
Dim strPfad As String
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
wdApp.documents.Open Worksheets("Eingabe").Range("A35") & "CA-2018- Vorlage.doc"
Set wdoc = wdApp.ActiveDocument
With wdApp.Selection
wdoc.FormFields("Text2").Result = Worksheets("Eingabe").Range("b8") 'Firma
wdoc.FormFields("Text24").Range.InlineShapes.AddPicture Filename:= _
("P:\Tech\Datasheet\Data-ber STR\TEST\temp.jpg"), _
LinkToFile:=False, SaveWithDocument:=True
End with
End Sub
|