Office: Schriftart temporär installieren

Hallo,

ich möchte gerne in einer Excel-Datei eine Schriftart temporär installieren. Im Workbook_Open habe ich es geschafft, mit dem Befehl AddFontResource eine neue Schriftart zu instalieren. Im Workbook_Close deinstalliere ich die Schriftart wieder mit dem Befehl RemoveFontResource. So weit, so gut.
Dafür muss ich aber die zu installierende Schriftart irgendwo auf dem Rechner speichern. Wie schaffe ich es aber, diese Schriftart direkt aus einem in der Excel-Datei eingebetteten Objekt zu installieren, ohne das der User dies mitbekommt? Kennt jemand eine Möglichkeit? In den Eigenschaften des eigebetteten Objekts ist ja ein Pfad, aber über diesen funktioniert es scheinbar nicht.

Danke schon mal für Eure Mithilfe.

Gruß
siste95

:)

 

Bei der Schriftart handelt es sich um Barcodes, welche ja nicht jeder auf seinem Rechner hat. So wäre es optimal, der User öffnet die Datei, im Hintergrund wird die Schriftart über das eingebettete Objekt installiert, ohne das der User was machen muss bzw. es mit bekommt, das da was passiert. Beim Schliessen ist die Schriftart dann wieder verschwunden.

 

Moin!
Ja, klar dass es sich nicht um einen Aprilscherz handeln soll, wäre ja auch zu spät ;-)
Habt ihr kein Netzwerk?
Dann könntest Du die Schriftart doch einfach in einem schreibgeschützten Ordner "aufbewahren".

Gruß Ralf

 

Das wäre ja zu einfach.

Hintergrund des Ganzen ist ein Baby- und Kinderbasar. Es soll eine Excel-Datei versendet werden, in der die Verkäufer ihre Artikel in eine Tabelle eintragen und daraus werden Barcode-Etiketten erstellt. Und dafür wird die Schriftart benötigt, die nicht jeder auf seinem Rechner hat. Da es sich nicht bei allen Verkäufern um Computer-Freaks handelt, soll dies alles im Hintergrund geschehen (wenn überhaupt möglich).
Das Installieren des Fonts beim Öffnen und das Deinstallieren beim Schliessen der Datei klappt ja schon. Aber nur, wenn man im VBA den genauen Pfad des Font hinterlegt. Nun wäre es halt schön, wenn man den Font nicht auf dem Rechner speichern müsste, sondern wenn das aus der Excel Datei passieren könnte. Per Doppelklick kann man den Font ja aus dem eingebetteten Objekt installieren. Dies wäre dann aber dauerhaft und nicht nur temporär.

 

Ich bleibe mal beim Einfachen:
Erstelle mit 7Zip (Freeware) ein selbstextrahierendes Archiv (.exe), in das Du die Excel-Datei sowie die Schriftart einfügst.
Beim Entpacken ist sicher gestellt, dass sich beide Dateien in einem beliebigen Ordner befinden.
Im Workbook_Open dann halt:
Code:

Gruß Ralf

 

Moin,

wenn ich https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx richtig verstehe, nutzt die Funktion %windir%\fonts\ zum Installieren.

Gruß
Ralf

 

Hi Namensvetter!
Woraus schließt Du dies?
Im Original-Code von vb@rchiv steht schließlich:
AddFontResource(App.Path & "\lcd.ttf")

Bei MS steht lediglich:

Gruß Ralf

 

Soderle

Hat mich interessiert, deshalb habe ich dies mal umgesetzt.
Ich habe da eine absolut dämliche Schriftart, die sicherlich niemand auf dem PC hat: PWWORLDSEND2112
Sieht so aus:

 

Das Zippen ist eine gute Idee. Ich habe es auch schon ausprobiert und es funktioniert gut. Danke.
Jetzt hoffe ich, dass es die Basar-Verkäufer auch annehmen.

 

Hi Ralf,

typischer Schlurzkuss: Ich war gedanklich beim Ziel, nicht bei der Quelle :-(

Gruß
Ralf