Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.02.2021 15:44:17 |
Mike |
|
|
|
26.02.2021 23:27:41 |
xlKing |
|
|
|
27.02.2021 00:11:59 |
xlKing |
|
|
|
01.03.2021 12:42:30 |
Gast57618 |
|
|
Bild (jpg) aus Excel in Kopfzeile eines neuen Worddokumentes |
02.03.2021 01:31:59 |
xlKing |
|
|
|
02.03.2021 02:11:30 |
Gast97923 |
|
|
|
02.03.2021 18:57:01 |
Mike |
|
|
Von:
xlKing |
Datum:
02.03.2021 01:31:59 |
Views:
584 |
Rating:
|
Antwort:
|
Thema:
Bild (jpg) aus Excel in Kopfzeile eines neuen Worddokumentes |
Hi Mike,
Also das kann ich mir überhaupt nicht erklären, warum das bei dir nicht klappt. Bei mir funktioniert der Code einwandfrei. Habe mal deinem Wunsch das erst ins Dokument zu kopieren und erst später in die Kopf und Fußzeile zu kopieren entsprochen. Glaube aber nicht wirklich, dass das bei dir erfolgreicher ist. Bei mir klappts ebenfalls super, auch wenn der Code jetzt nicht mehr ganz so elegant ist. Probiers einfach mal aus.
Sub WordStarten2()
Const wdPaneNone = 0, wdNormalView = 1, wdOutlineView = 2, wdPrintView = 3
Const wdSeekCurrentPageHeader = 9, wdSeekCurrentPageFooter = 10, wdSeekMainDocument = 0
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set doc = wd.documents.Add
If wd.ActiveWindow.View.SplitSpecial <> wdPaneNone Then
wd.ActiveWindow.Panes(2).Close
End If
If wd.ActiveWindow.ActivePane.View.Type = wdNormalView Or wd.ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
wd.ActiveWindow.ActivePane.View.Type = wdPrintView
End If
With doc.content
ActiveSheet.Shapes("Grafik 1").Copy
.Paste
With doc.Shapes(1)
.Height = wd.CentimetersToPoints(2)
.Top = wd.CentimetersToPoints(0.5) - doc.PageSetup.TopMargin
.Left = doc.PageSetup.PageWidth - .Width - doc.PageSetup.LeftMargin - wd.CentimetersToPoints(0.5)
.Select
wd.Selection.Copy
.Delete
End With
wd.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
wd.Selection.Paste
wd.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveSheet.Shapes("Grafik 2").Copy
.Paste
With doc.Shapes(1)
.Height = wd.CentimetersToPoints(2)
.Top = doc.PageSetup.pageheight - .Height - wd.CentimetersToPoints(0.5)
.Left = wd.CentimetersToPoints(0.5) - doc.PageSetup.LeftMargin
.Select
wd.Selection.Copy
.Delete
End With
wd.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
wd.Selection.Paste
wd.Selection.ShapeRange.Top = wd.Selection.ShapeRange.Top - wd.CentimetersToPoints(0.5)
wd.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveSheet.Shapes("Grafik 3").Copy
.Paste
With doc.Shapes(1)
.Height = wd.CentimetersToPoints(2)
.Top = doc.PageSetup.pageheight - .Height - wd.CentimetersToPoints(0.5)
.Left = doc.PageSetup.PageWidth - .Width - doc.PageSetup.LeftMargin - wd.CentimetersToPoints(0.5)
.Select
wd.Selection.Copy
.Delete
End With
wd.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
wd.Selection.Paste
wd.Selection.ShapeRange.Top = wd.Selection.ShapeRange.Top - wd.CentimetersToPoints(0.5)
wd.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End With
End Sub
Gruß Mr. K.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.02.2021 15:44:17 |
Mike |
|
|
|
26.02.2021 23:27:41 |
xlKing |
|
|
|
27.02.2021 00:11:59 |
xlKing |
|
|
|
01.03.2021 12:42:30 |
Gast57618 |
|
|
Bild (jpg) aus Excel in Kopfzeile eines neuen Worddokumentes |
02.03.2021 01:31:59 |
xlKing |
|
|
|
02.03.2021 02:11:30 |
Gast97923 |
|
|
|
02.03.2021 18:57:01 |
Mike |
|
|