A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

customised logos



 
 
Thread Tools Display Modes
  #1  
Old November 28th, 2008, 02:59 AM posted to microsoft.public.word.docmanagement
Michael Hansen
external usenet poster
 
Posts: 1
Default customised logos

Hello

We have a scenario were we have a standard template which needs a different
company logo which means we need to maintain about 10 templates depending on
the company/branch needing to use this.

Is there a way where we could allow the user to select which company they
require when they open the document from a drop down box and then a macro
will insert the appropriate company logo into the document.

Regards
Michael Hansen
  #2  
Old November 28th, 2008, 05:21 AM posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP
external usenet poster
 
Posts: 8,239
Default customised logos

You could do it with a userform with a combobox or even images of each of
the logos and then when the user double clicked on one, code assocated with
that image would change the code in an IncludePicture field in the document
so that the selected logo was displayed.


If you have all of the files for the logos in a folder C:\logo, with a copy
of one of the files also in that folder and saved with the name of logo.jpg,
you could also do it with a macro button field

{ MACROBUTTON Logo { INCLUDEPICTURE "C:\\Logo\\logo.jpg } }

and have the following macro in the template

Sub Logo()
Dim fd As FileDialog
Dim LogoFile as String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Select the File that contains the Logo"
fd.InitialFileName = "C:\Logo
fd.Filters.Add "Images", "*.jpg", 1
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
LogoFile = .SelectedItems(1)
WordBasic.CopyFileA FileName:=LogoFile,
Directory:="C:\Logo\logo.jpg"
End If
End With
Set fd = Nothing
Selection.Range.Fields.Update
End Sub

When you double click on the logo, a file dialog will open allowing you to
select the file that contains the logo that you want to use and it will then
be displayed in the document.
--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Michael Hansen" (donotspam) wrote in message
...
Hello

We have a scenario were we have a standard template which needs a
different
company logo which means we need to maintain about 10 templates depending
on
the company/branch needing to use this.

Is there a way where we could allow the user to select which company they
require when they open the document from a drop down box and then a macro
will insert the appropriate company logo into the document.

Regards
Michael Hansen



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 03:28 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.