UserForm Image loading Error . I tried with the following your code but the picture is blank

[Senthil Murugan]

Sub Pict
Dim Ans As String
Dim rng As Excel.Range
Dim cht As Excel.ChartObject
Dim Pth As String
Dim Pic As Object
With ListBox1
Set Pic = Sheets("sheet2").Shapes(.List)
Pic.Copy 'Picture xlScreen, xlBitmap
Dim Strpath As String
Strpath = ThisWorkbook.Path & "\Temp.jpg"
Set cht = ActiveSheet.ChartObjects.Add(100, 0, Pic.Width, Pic.Height)
cht.Chart.Paste
cht.Chart.Export Strpath
cht.Delete
Set cht = Nothing
Me.Image1.Picture = LoadPicture(Strpath)
End With
End Sub

 

[NdNoviceHlp]

Hi *Senthil Muragan and Welcome to the Board! You can trial this adjusted code. The msgbox just let's you know if you have the shape name... the code can be removed as needed. HTH. Dave

Sub Pict(n As Integer)
Dim Ans As String
Dim rng As Excel.Range
Dim cht As Excel.ChartObject
Dim Pth As String
Dim Pic As Object
With ListBox1

MsgBox Sheets("sheet2").Shapes(.List(n))

Set Pic = Sheets("sheet2").Shapes(.List(n))
Pic.Copy 'Picture xlScreen, xlBitmap
Dim Strpath As String
Strpath = ThisWorkbook.Path & "\Temp.jpg"
Set cht = ActiveSheet.ChartObjects.Add(100, 0, Pic.Width, Pic.Height)
cht.Activate
cht.Chart.Paste
cht.Chart.Export Strpath, "JPG"
cht.Delete
Set cht = Nothing
Me.Image1.Picture = LoadPicture(Strpath)
End With
End Sub

ps. please use code tags

 

[Senthil Murugan]

Hi *Senthil Muragan and Welcome to the Board! You can trial this adjusted code. The msgbox just let's you know if you have the shape name... the code can be removed as needed. HTH. Dave

Sub Pict(n As Integer)
Dim Ans As String
Dim rng As Excel.Range
Dim cht As Excel.ChartObject
Dim Pth As String
Dim Pic As Object
With ListBox1

MsgBox Sheets("sheet2").Shapes(.List(n))

Set Pic = Sheets("sheet2").Shapes(.List(n))
Pic.Copy 'Picture xlScreen, xlBitmap
Dim Strpath As String
Strpath = ThisWorkbook.Path & "\Temp.jpg"
Set cht = ActiveSheet.ChartObjects.Add(100, 0, Pic.Width, Pic.Height)
cht.Activate
cht.Chart.Paste
cht.Chart.Export Strpath, "JPG"
cht.Delete
Set cht = Nothing
Me.Image1.Picture = LoadPicture(Strpath)
End With
End Sub

ps. please use code tags

Thanks Sir, after removing msgbox , it is working fine

 

[Senthil Murugan]

Many Thanks sir. After removing msgbox , it is working fine

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Dave