Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SVG über VBA einfügen und Datei als PDF speichern

SVG über VBA einfügen und Datei als PDF speichern
24.05.2018 10:15:30
Susanne
Hallo,
ich füge in meine Datei mittels VBA eine svg ein. Der Code dafür lautet:
With wsVorlage.Pictures.Insert(ThisWorkbook.Path & "\Logo.svg")
.Top = 25
.Left = 430
.Height = 50
End With
Wenn ich die Excel Datei nun als PDF abspeichere, wird das Logo völlig verzogen und in die Höhe gestreckt.
Wenn ich hingegen die svg Grafik über Einfügen - Bild einfüge, dann wird diese beim Abspeichern als PDF nicht verzogen.
Kann mir jemand weiterhelfen, warum das so ist? Und wie man dieses Problem lösen kann?
Vielen Dank schon mal :)
Grüße, Susi

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SVG über VBA einfügen
24.05.2018 10:19:27
mmat
lass doch einfach mal ".Height = 50" weg.
AW: SVG über VBA einfügen
24.05.2018 10:43:50
Susanne
Hm aber dann ist das Logo ja viel zu groß...
AW: SVG über VBA einfügen
24.05.2018 10:45:59
Susi
Und verzogen wird es leider trotzdem.
AW: SVG über VBA einfügen
24.05.2018 10:52:35
mmat
Dann setz eben noch ein ".Width=?" hinzu, wobei der bei ? übergebene Wert genau dem Seitverhältnis entspricht. Wenn das Original eine Größe von Höhe:512*Breite:768 hat, dann muß hier eine 75 hin.
AW: SVG über VBA einfügen
24.05.2018 11:01:05
Susi
Hallo,
danke für deine Antwort. Ich glaube da gibt es ein Missverständnis. Wenn ich das Excel geöffnet habe und das Logo eingefügt ist, passt alles. Erst wenn ich es als PDF abspeichere, wird das Logo verzerrt. Davor ist es mit den richtigen Seitenverhältnissen drin.
Danke schon mal.
Anzeige
AW: SVG über VBA einfügen
24.05.2018 11:16:44
mmat
Ja, wenn das so ist, dann kannst noch versuchen ein
.Placement = xlFreeFloating
einzubauen.
Ich hoffe das hilft. leider hab ich hier kein SVG zum rumprobieren.
AW: SVG über VBA einfügen
24.05.2018 11:51:59
Susi
Hilft leider auch nicht :( Trotzdem vielen Dank für deine Mühe!
Vielleicht hat jemand anders noch eine Idee o.w.T
24.05.2018 13:44:04
mmat
Hallo, ...
24.05.2018 14:31:20
Peter(silie)
... versuchs so:
Option Explicit
Sub InsertSVG()
Dim svgPath As Variant
svgPath = Application.GetOpenFilename("Scalable Vector Graphics (*.svg), *svg")
If svgPath  False Then
With ActiveSheet.Pictures.Insert(svgPath)
With .ShapeRange
.LockAspectRatio = msoTrue
.Height = 50
End With
.Left = 25
.Top = 430
.Placement = 1
.PrintObject = True
End With
End If
End Sub

Anzeige
AW: Hallo, ...
24.05.2018 14:58:06
Susi
Hilft leider ebenfalls nicht...
Seltsam ist auch, dass ich eine andere Excel Datei habe, in der das Logo auch ein svg ist, und über exakt denselben Code Schnipsel an derselben Stelle eingefügt wird, und wenn ich diese Datei als PDF abspeichere bleibt das Logo schön so wie es ist. Ich glaub da will mich jemand verarschen :(
Vielen Dank auf jeden Fall! Ich bin echt froh um jede Hilfe.
AW: Hallo, ...
24.05.2018 16:53:10
mmat
Hallo Susi,
also wenns im einen Fall so ist und im andern Fall anders, dann muss es einen Unterschied geben. Wahrscheinlich in den Bearbeitungsschritten nach dem Einfügen. Vielleicht sowas wie ein Optimieren der Spaltenbreite ?
Einen kleinen Kobode, der dich zum Besten halten will, gibt's leider nicht.
Anzeige

381 Forumthreads zu ähnlichen Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Anzeige
activeWb.SaveAs funzt nicht wg. Workbook_BeforeSav
norman

Hi alle,
ich haben eine XLA-Datei geschrieben, die bei jedem Start von Excel aktiv ist. In dieser XLA-Datei wird
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
genutzt, um in einem zentralen DB-System einen Eintrag vorzunehmen und die Datei dann in der BeforeS...
13.03.2010 21:59:44
Thread-ID: 1145651
7 Beiträge
VBA: Datei ohne Makros speichern
André

Moin zusammen,
gegeben ist eine Exceldatei mit Makros (.XSLM).
In dieser Datei soll nun ein Makro folgendes tun:
- die Datei speichern, wobei der User den Dateinamen und Pfad angeben darf
- die Datei darf nur in den Formaten XLSX oder XlS, in jedem Fall aber ohne Makros gespeich...
19.04.2010 13:13:27
Thread-ID: 1152560
8 Beiträge
Mit VBA Code löschen und Datei speichern
Uppe

Hallo Experten,
ich möchte das Blatt 2 meiner Datei ohne Code und Userforms etc speichern.
Mein Bisheriger Code sieht so aus:
Sub Speichern() vntPathAndFile = Application.GetSaveAsFilename( _ InitialFileName:=strPath & "\" & strDateiname & ".xls", Title:="Speichern als"...
20.04.2010 14:50:15
Thread-ID: 1152866
4 Beiträge
VBA Datei Speichern Unter Dialog mit HTML+Paramete
norman

Hi Leutz,
steh gerade auf dem Schlauch (sonst wäre ich ja nicht hier :)) Excel bietet mir den "Datei Speichern unter"-Dialog ja per VBA an: GetSaveAsFilename.
Jetzt will ich aber HTML speichern, und da gibt es ne Menge Parameter, die ich im GetSaveAsFilename vermisse! (Gesamte Arbeitsma...
17.07.2010 02:36:55
Thread-ID: 1167530
14 Beiträge
ActiveWorkbook.SaveAs Filename
Sandra

Hallo zusammen,
ich habe mal wieder ein Problem.
Mit dem nachfolgenden Code lasse ich automatisch speichern.
Dim Dateiname As String
Dateiname = oXlSM.Name
ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
Das klappt auch fast. Allerdin...
21.06.2011 16:49:35
Thread-ID: 1219171
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
13
2
6
7
3
13
2
2
12
3
2
2
5
11
1
2
2
8
2
2
19
3