Eingebettetes Objekt in Datei speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Markus!
Einbetten geht in Excel nicht.
Aber wenn du die Datei mit der Font-Datei weitergibst, zB. gezipt, und den Font im
Verzeichnis der Arbeitsmappe ablegst, dann könnte man mit folgendem Code die Schriftart temporär registrieren.

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RegisterFont
End Sub

Private Sub Workbook_Open()
UnRegisterFont
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function AddFontResource Lib "gdi32" _
  Alias "AddFontResourceA" (ByVal lpFileName As _
  String) As Long

Private Declare Function RemoveFontResource Lib "gdi32" _
  Alias "RemoveFontResourceA" (ByVal lpFileName As _
  String) As Long

Private Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As _
  Long, ByVal wParam As Long, lParam As Any) As Long

Private Const HWND_BROADCAST As Long = &HFFFF&
Private Const WM_FONTCHANGE As Long = &H1D&

Private Const strFont As String = "deinFont.ttf" 'Name der Schriftdatei - Anpassen!

Sub RegisterFont()
Dim Result As Long

Result = AddFontResource(ThisWorkbook.Path & "\" & strFont)

SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0

End Sub

Sub UnRegisterFont()
Dim Result As Long

Result = RemoveFontResource(ThisWorkbook.Path & "\" & strFont)

SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
End Sub

Gruß Sepp

Hallo Sepp
Schon mal besten Dank für den Beispiel-Code. Das ist schon ein sehr guter Ansatz. Ich werde ihn auf jedenfall ausprobieren. Ziel ist jedoch dem Anwender nur ein File zu geben damit er keinen Fehler machen kann.
Nun zum Thema, dass das mit dem einbetten einer Schrift in Excel nicht geht. Ich habe diese Datei über das Menu "Einfügen-Objekt-Aus Datei erstellen" eingebunden. Wobei die Eigenschaft "Verknüpfen" NICHT aktiviert war. Somit bin ich der Meinung, dass diese Datei eingebettet ist, oder verstehe ich da was falsch? Das kann man aus meiner Sicht auch mit anderen Dateien so machen.
Nur eben wie kriege ich die wieder aus Excel raus ?
Besten Dank im voraus für deine Bemühungen
Gruss Markus

Beliebteste Forumthreads (12 Monate)

Eingebettetes Objekt in Datei speichern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread