Create content control for clip art not a picture from file...

swissmiss · #1 10-31-2013, 06:31 PM

Anyone know how to change the settings or what to do, to create content control field for clip art? I know how to create one from the developer tab for a picture, but I want the image to come from clip art and the only option I get is to find a picture from a file. Is this possible? If so how do I do it?

Thanks!

macropod · #2 11-01-2013, 12:37 AM

hi swissmiss,

You can use the Picture Content Control to insert ClipArt. All that needs to be done once it's activated is to select the folder containing the ClipArt.

swissmiss · #3 11-01-2013, 05:14 AM

Hi Mr. Edstein,

Thank you so much for replying. I think I'm missing something. When I go to click on my picture content control it automatically takes me to my libraries folder and I can't figure out anyway to access the clipart folder... I did some searching last night and from what I read you should be able to use a picture content control to insert pictures, wordart and clipart. I can't figure out to change it. What am I missing? Thanks for any insight! I appreciate it.

macropod · #4 11-01-2013, 05:43 PM

Hi swissmiss,

You can't get the pictures content control to activate the clipart dialogue. However, you can get the Insert|Picture dialog box used by the content control to point to the ClipArt folder by adding code like the following to the document's 'ThisDocument' code module and give the applicable content control(s) the title ‘ClipArt’. One quirk about this approach is that you’ll need to click on the blue area surrounding the picture icon; otherwise the dialog opens up with the default pictures path. Conversely, if you prefer, you could also/instead use the same code on a Rich Text content control titled ‘ClipArt’.

Code:

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
Dim StrPath As String
If ContentControl.Title = "ClipArt" Then
With Application.Dialogs(wdDialogInsertPicture)
StrPath = Options.DefaultFilePath(Path:=wdPicturesPath)
Options.DefaultFilePath(Path:=wdPicturesPath) = "C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\"
.Update
If .Show = True Then
  With ContentControl.Range
    If .InlineShapes.Count > 1 Then .InlineShapes(1).Delete
  End With
End If
Options.DefaultFilePath(Path:=wdPicturesPath) = StrPath
End With
End If 
End Sub

Additionally, since Windows Explorer no longer displays thumbnail image previews of EMF (Enhanced Metafile) and WMF (Windows Metafile) vector graphic images, the wmf files in the Insert|Picture dialog box simply display a generic icon, which isn’t much help when it comes to identifying the images. Accordingly, if you want to see the thumbnails, you may need to download & install the appropriate EMF and WMF thumbnail preview plug-in at: http://code.google.com/p/emfplugin/

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Move to next content control	cksm4	Word VBA	13	07-02-2019 07:48 PM
Deleting a table from a content control -- preserving the content control	BrainSlugs83	Word Tables	8	11-14-2013 03:06 AM
Content control problem	Anja	Word	2	10-16-2013 09:56 AM
Hierarchical content control	ntjson	Word VBA	1	04-04-2013 12:07 AM
Retrieving content control value	jillapass	Word VBA	4	05-24-2012 05:07 AM