Bonjour,
Je voudrais savoir s'il était possible d'ajouter une police d'écriture à un projet pour ne pas être obligé de l’installer sur les postes utilisant ce dernier.
Merci.
Bonjour,
Je voudrais savoir s'il était possible d'ajouter une police d'écriture à un projet pour ne pas être obligé de l’installer sur les postes utilisant ce dernier.
Merci.
Bonjour
Je ne pense pas, Access prend les polices sur le PC, contrairement à PowerPoint où on peut faire accompagner la police.
Si ta police est dans des zones fixes tel que des étiquettes tu peux faire un remplacement par des images.
Le catalogue de Police sur un PC est suffisamment important, ton besoin est-il si important que cela
Philippe
Bonjour,
C'est possible. Voir cette contribution d'Arkham46.
Domi2
Bonjour,
Merci pour vos réponse, c'est tout à fait ce que je recherche.
En revanche, j'ai quelques difficultés pour mettre en œuvre:
J'ai créé un module 'Police_Ecriture' où j'ai mis le code source:
Ensuite, un fichier fonts dans le dossier où ce trouve ma base et j'ai ajouté ma police (ma base de donnée est sur un clé usb).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Option Compare Database Option Explicit Private Declare Function AddFontResourceEx Lib "gdi32" Alias "AddFontResourceExA" (ByVal lpszFilename As String, ByVal fl As Long, ByVal pdv As Long) As Long Private Declare Function RemoveFontResourceEx Lib "gdi32" Alias "RemoveFontResourceExA" (ByVal lpszFilename As String, ByVal fl As Long, ByVal pdv As Long) As Long Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const FR_PRIVATE = &H10 Public Function AddFontFromFile(pFile As String) As Boolean AddFontFromFile = (AddFontResourceEx(pFile, FR_PRIVATE, 0) > 0) End Function Public Function RemoveFontFromFile(pFile As String) As Boolean RemoveFontFromFile = (RemoveFontResourceEx(pFile, FR_PRIVATE, 0) <> 0) End Function
Et pour finir, une macro 'AutoExec' ayant comme action 'ExécuterCode' et comme code :
Lorsque je lance ma base, la macro s'exécute mais échoue 'Une erreur est survenue lors de la compilation. Le module Visual Basic comporte une erreur de syntaxe.'
Code : Sélectionner tout - Visualiser dans une fenêtre à part AddFontFromFile (CurrentProject.Path & "\fonts\Rina.ttf")
La démarche me parait correct donc je pencherais plus sur un problème de chemin d'accès à la police.
Qu'en pensez vous?
Cordialement
Le problème venait de la désactivation des macros au démarrage; et même après les avoir activées, une fois sur deux ça ne fonctionnait pas.
Je ne c'est pas si c'est très sécurisé, mais j'ai changé mes préférences Access de démarrage pour activer toutes les macros; et plus de problème.
Merci pour vos réponses et pour ce tuto très efficace.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager