Show images from worsheets to UserForm

[SoloJavier]

Hi guys
I've got a project but I don't know how to solve this:

I want to show an image that already exists in my worksheet using the Image control from UserForm but all the methods that I have seen use the path of the file to insert the image. I can't use this method since I have to share my document to different people so I don't know how to face this situation.

Does anyone have idea of how I can "load" an image by giving the name that appears in the upper left corner of the sheet or something similar?

Thanks in advance

 

[Worf]

Hi

Do you still need help with this one?

 

[SoloJavier]

Hi

Do you still need help with this one?

I worked it out in a different way, I had to leave this idea behind.
But if you can help me that would be great!!

 

[Worf]

But if you can help me that would be great!!

Do you mean with your original request or is there something else?

 

[SoloJavier]

Do you mean with your original request or is there something else?

With the original one

 

[Worf]

All right, I am going offline now for dinner but will return in a couple of days...

 

[Worf]

Can you write to the user's hard disk?

' UserForm module
Private Sub UserForm_Click()
Dim img
ExportPic
Set img = Me.Controls.Add("Forms.Image.1")
With img
    .Picture = LoadPicture(fn)
    .PictureSizeMode = fmPictureSizeModeZoom
    .Width = 200
    .Height = 150
    .Left = 50
    .Top = 10
End With
Me.CommandButton1.SetFocus
End Sub

' regular module
Public fn$

Sub ExportPic()
Dim ch As Chart, shp As Shape, Sht As Worksheet
Set Sht = ActiveSheet
Set shp = Sht.Shapes(CStr([e118].Value))    ' shape name from cell
Set ch = Charts.Add
ch.Name = "TempPictureChart"
Set ch = ch.Location(Where:=xlLocationAsObject, Name:=Sht.Name)
ch.ChartArea.Width = shp.Width
ch.ChartArea.Height = shp.Height
ch.Parent.Border.LineStyle = 0
shp.Copy
ch.ChartArea.Select
ch.Paste
fn = "d:\test\pic" & Replace(Time, ":", "_") & ".jpg"
ch.Export Filename:=fn, FilterName:="jpg"   ' write to disk
Sht.Cells(1, 1).Activate
Sht.ChartObjects(Sht.ChartObjects.Count).Delete
End Sub

 

[NdNoviceHlp]

Hi Worf and SoloJavier. Hopefilly a constructive suggestion, instead of using a variable (fn) and/or permanently storing jpg's, I've found the following code useful....

.Chart.Export Environ$("temp") & "" & "TempChart.jpg", "JPG"

.Picture = LoadPicture(Environ$("temp") & "" & "TempChart.jpg")

Kill (Environ$("temp") & "" & "TempChart.jpg")

You need to add the other code parts of course, but the idea is that it doesn't matter what directories the user has and there is no residual "evidence" that anything ever happened. HTH. Dave

 

[Jaafar Tribak]

If you place your picture in an activeX image control embeeded in the worksheet, all you need is this :

UserForm1.Image1.Picture = Sheet1.Image1.Picture

 

[daniel_dani95]

If you place your picture in an activeX image control embeeded in the worksheet, all you need is this :

UserForm1.Image1.Picture = Sheet1.Image1.Picture

Can i specify changing picture this way?