MS Word

[ssingh75]

Hi All,

Can anyone guide me that how can i add macro to shape in word document. I've below code but want to activate when someone will click on the shape to add image.

Private Sub CommandButton1_Click()

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Add "Image", "*.gif; *.jpg; *.jpeg", 1
        If .Show = -1 Then
            ' file has been selected

            ' e.g. show path in textbox
            Me.TextBox1.Text = .SelectedItems(1)

            ' e.g. display preview image in an image control
            Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
            Me.Image1.Picture = LoadPicture(.SelectedItems(1))
        Else
            ' user aborted the dialog

        End If
    End With

End Sub

---Thanks in advance

 

[Macropod]

Your code seems designed for use with a userform or ActiveX control. Why not use a picture content control instead? No code required.

PS: When posting code, please use the code tags, indicated by the # button on the posting menu instead of posting everything as HTML. Without the code tags, your code loses much of whatever structure it had.

 

[ssingh75]

Your code seems designed for use with a userform or ActiveX control. Why not use a picture content control instead? No code required.

PS: When posting code, please use the code tags, indicated by the # button on the posting menu instead of posting everything as HTML. Without the code tags, your code loses much of whatever structure it had.

I'm not sure how to use the picture content control in MS word...Could you help me with some intial code.....thanks in advance.

 

[Macropod]

Please read the last sentence in the first paragraph of my previous reply.