Image insert with macro

[homokyz]

PLEASE HELP dear everyone. I have used the following macro to add
image from slide show view:

Private Sub CommandButton1_Click()
Application.CommandBars("Menu Bar") _
..FindControl(Id:=2619, Recursive:=True).Execute
Application.WindowState = 2

End Sub

I'm looking for an option to add the subrutine to position the image
instead of automaticly align to the slide center.

THANK YOU FOR YOUR HELP IN ADVANCE.
B

 

[Guest]

The code you have runs the Insert Picture from file dialogue which I think
will always target screen center. You could use instead

Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.Slide.Shapes.AddPicture _
"C:\Documents and Settings\John\My Documents\ff.png", msoFalse, _
msoTrue, 50, 60
DoEvents
End Sub
Obviously change the file path. The 50 and 60 are Top and Left for the
inserted pic

 

[Steve Rindsberg]

PLEASE HELP dear everyone. I have used the following macro to add
image from slide show view:

Private Sub CommandButton1_Click()
Application.CommandBars("Menu Bar") _
..FindControl(Id:=2619, Recursive:=True).Execute
Application.WindowState = 2

End Sub

I'm looking for an option to add the subrutine to position the image
instead of automaticly align to the slide center.

This'll help you insert the picture w/o distorting it, once you know the name
of the file you want to insert:

Insert a picture at the correct size
http://www.pptfaq.com/FAQ00329.htm

You can add code to set the picture's .Left and .Top properties to whatever you
like.

 

[Guest]

I found your last post

You will need this if you want to browse

Sub Pics()

Dim strPath As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
..Filters.Clear
..Filters.Add "Pictures", "*.jpg,*.png" ' more if you want!
If .Show = -1 Then
strPath = .SelectedItems(1)
End If
End With

ActivePresentation.SlideShowWindow.View.Slide.Shapes _
..AddPicture strPath, msoFalse, msoTrue, 50, 60 '50 is Top, 60 is left position

Set fd = Nothing

End Sub

Regards John

 

[homokyz]

I found your last post

You will need this if you want to browse

Sub Pics()

Dim strPath As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Filters.Add "Pictures", "*.jpg,*.png" ' more if you want!
If .Show = -1 Then
strPath = .SelectedItems(1)
End If
End With

ActivePresentation.SlideShowWindow.View.Slide.Shapes _
.AddPicture strPath, msoFalse, msoTrue, 50, 60 '50 is Top, 60 is left position

Set fd = Nothing

End Sub

Regards John
--
Amazing PPT Hints, Tips and Tutorials-http://www.PPTAlchemy.co.ukhttp://www.technologytrish.co.uk
email john AT technologytrish.co.uk









- Show quoted text -

This is excelent, thank you very much, just a short question, is it
possible to do in slide show view, without changing the view after
running the macro.

Thank you for your answer in advance, best regards, Zoltan

 

[Guest]

Add this to the end of the subroutine see if that works
Application.WindowState = 2

 

[homokyz]

Add this to the end of the subroutine see if that works
Application.WindowState = 2
--
Amazing PPT Hints, Tips and Tutorials-http://www.PPTAlchemy.co.ukhttp://www.technologytrish.co.uk
email john AT technologytrish.co.uk







- Show quoted text -

THANK YOU VERY MUCH, IT IS REALLY WHAT I LOOKING FOR, REALLY
APPRECHIATE.

BEST REGARDS, ZOLTAN