Que tal doctores

¿Como cargar una imagen ubicada desde una celda determinada en un control
picture?

o tal vez tengan en mente otro control
para hacerlo dinamico.

Gracias de antemano.
atte

Hola Jesus
prueba con esta macro te hace una imgen del rango y te la guarda en una
direccion luego esta al cargar el userform te la carga en la imagen que
tengas puesta en micaso se llama imagen4:

----------------------------------------------------
Private Sub prueba()
Dim choObj As ChartObject, chGráf As Chart, ptImagen As Object
Dim blnGuardado As Boolean

Worksheets("Sheet1").Range("h1").CopyPicture appearance:=xlScreen,
Format:=xlPicture

Set choObj = ActiveSheet.ChartObjects.Add(0, 0, 800, 600)
Set chGráf = choObj.Chart

choObj.Activate
chGráf.ChartArea.Select
chGráf.Paste
Set ptImagen = chGráf.Pictures(1)

ptImagen.Left = 0
ptImagen.Top = 0

choObj.Border.LineStyle = xlNone
choObj.width = ptImagen.width + 7
choObj.height = ptImagen.height + 7

blnGuardado = chGráf.Export(Filename:="C:\Documents and
Settings\DANIEL\Mis documentos\0DANIEL\Mis imágenes\fotos
canadienses\NEG_amie1.jpg", FilterName:="JPG")
If Not blnGuardado Then MsgBox prompt:="Problemas al guardar la
imagen.", Buttons:=vbOKOnly + vbExclamation
choObj.Delete

With Me.Image4
.Picture = LoadPicture("C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\Mis imágenes\fotos canadienses\NEG_amie1.jpg")
.PictureSizeMode = fmPictureSizeModeZoom
.AutoSize = True
End With

Set choObj = Nothing
Set chGráf = Nothing
Set ptImagen = Nothing
End Sub

-------------------------


espero que te valla cualquier cosa comentas



"JESUS SERRANO" <jserrano[at]jabs[dot]com[dot]pe> escribió en el mensaje
news:u%237Wi3VRHHA.4448***TK2MSFTNGP04.phx.gbl...
> Que tal doctores
>
> ¿Como cargar una imagen ubicada desde una celda determinada en un
> control
> picture?
>
> o tal vez tengan en mente otro control
> para hacerlo dinamico.
>
> Gracias de antemano.
> atte
>
>
>

Hola Jesus
prueba con esta macro te hace una imgen del rango y te la guarda en una
direccion luego esta al cargar el userform te la carga en la imagen que
tengas puesta en micaso se llama imagen4:

----------------------------------------------------
Private Sub prueba()
Dim choObj As ChartObject, chGráf As Chart, ptImagen As Object
Dim blnGuardado As Boolean

Worksheets("Sheet1").Range("h1").CopyPicture appearance:=xlScreen,
Format:=xlPicture

Set choObj = ActiveSheet.ChartObjects.Add(0, 0, 800, 600)
Set chGráf = choObj.Chart

choObj.Activate
chGráf.ChartArea.Select
chGráf.Paste
Set ptImagen = chGráf.Pictures(1)

ptImagen.Left = 0
ptImagen.Top = 0

choObj.Border.LineStyle = xlNone
choObj.width = ptImagen.width + 7
choObj.height = ptImagen.height + 7

blnGuardado = chGráf.Export(Filename:="C:\Documents and
Settings\DANIEL\Mis documentos\0DANIEL\Mis imágenes\fotos
canadienses\NEG_amie1.jpg", FilterName:="JPG")
If Not blnGuardado Then MsgBox prompt:="Problemas al guardar la
imagen.", Buttons:=vbOKOnly + vbExclamation
choObj.Delete

With Me.Image4
.Picture = LoadPicture("C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\Mis imágenes\fotos canadienses\NEG_amie1.jpg")
.PictureSizeMode = fmPictureSizeModeZoom
.AutoSize = True
End With

Set choObj = Nothing
Set chGráf = Nothing
Set ptImagen = Nothing
End Sub

-------------------------


espero que te valla cualquier cosa comentas



"JESUS SERRANO" <jserrano[at]jabs[dot]com[dot]pe> escribió en el mensaje
news:u%237Wi3VRHHA.4448***TK2MSFTNGP04.phx.gbl...
> Que tal doctores
>
> ¿Como cargar una imagen ubicada desde una celda determinada en un
> control
> picture?
>
> o tal vez tengan en mente otro control
> para hacerlo dinamico.
>
> Gracias de antemano.
> atte
>
>
>

Hola Jesus
prueba con esta macro te hace una imgen del rango y te la guarda en una
direccion luego esta al cargar el userform te la carga en la imagen que
tengas puesta en micaso se llama imagen4:

----------------------------------------------------
Private Sub prueba()
Dim choObj As ChartObject, chGráf As Chart, ptImagen As Object
Dim blnGuardado As Boolean

Worksheets("Sheet1").Range("h1").CopyPicture appearance:=xlScreen,
Format:=xlPicture

Set choObj = ActiveSheet.ChartObjects.Add(0, 0, 800, 600)
Set chGráf = choObj.Chart

choObj.Activate
chGráf.ChartArea.Select
chGráf.Paste
Set ptImagen = chGráf.Pictures(1)

ptImagen.Left = 0
ptImagen.Top = 0

choObj.Border.LineStyle = xlNone
choObj.width = ptImagen.width + 7
choObj.height = ptImagen.height + 7

blnGuardado = chGráf.Export(Filename:="C:\Documents and
Settings\DANIEL\Mis documentos\0DANIEL\Mis imágenes\fotos
canadienses\NEG_amie1.jpg", FilterName:="JPG")
If Not blnGuardado Then MsgBox prompt:="Problemas al guardar la
imagen.", Buttons:=vbOKOnly + vbExclamation
choObj.Delete

With Me.Image4
.Picture = LoadPicture("C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\Mis imágenes\fotos canadienses\NEG_amie1.jpg")
.PictureSizeMode = fmPictureSizeModeZoom
.AutoSize = True
End With

Set choObj = Nothing
Set chGráf = Nothing
Set ptImagen = Nothing
End Sub

-------------------------


espero que te valla cualquier cosa comentas



"JESUS SERRANO" <jserrano[at]jabs[dot]com[dot]pe> escribió en el mensaje
news:u%237Wi3VRHHA.4448***TK2MSFTNGP04.phx.gbl...
> Que tal doctores
>
> ¿Como cargar una imagen ubicada desde una celda determinada en un
> control
> picture?
>
> o tal vez tengan en mente otro control
> para hacerlo dinamico.
>
> Gracias de antemano.
> atte
>
>
>

Hola Jesus
prueba con esta macro te hace una imgen del rango y te la guarda en una
direccion luego esta al cargar el userform te la carga en la imagen que
tengas puesta en micaso se llama imagen4:

----------------------------------------------------
Private Sub prueba()
Dim choObj As ChartObject, chGráf As Chart, ptImagen As Object
Dim blnGuardado As Boolean

Worksheets("Sheet1").Range("h1").CopyPicture appearance:=xlScreen,
Format:=xlPicture

Set choObj = ActiveSheet.ChartObjects.Add(0, 0, 800, 600)
Set chGráf = choObj.Chart

choObj.Activate
chGráf.ChartArea.Select
chGráf.Paste
Set ptImagen = chGráf.Pictures(1)

ptImagen.Left = 0
ptImagen.Top = 0

choObj.Border.LineStyle = xlNone
choObj.width = ptImagen.width + 7
choObj.height = ptImagen.height + 7

blnGuardado = chGráf.Export(Filename:="C:\Documents and
Settings\DANIEL\Mis documentos\0DANIEL\Mis imágenes\fotos
canadienses\NEG_amie1.jpg", FilterName:="JPG")
If Not blnGuardado Then MsgBox prompt:="Problemas al guardar la
imagen.", Buttons:=vbOKOnly + vbExclamation
choObj.Delete

With Me.Image4
.Picture = LoadPicture("C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\Mis imágenes\fotos canadienses\NEG_amie1.jpg")
.PictureSizeMode = fmPictureSizeModeZoom
.AutoSize = True
End With

Set choObj = Nothing
Set chGráf = Nothing
Set ptImagen = Nothing
End Sub

-------------------------


espero que te valla cualquier cosa comentas



"JESUS SERRANO" <jserrano[at]jabs[dot]com[dot]pe> escribió en el mensaje
news:u%237Wi3VRHHA.4448***TK2MSFTNGP04.phx.gbl...
> Que tal doctores
>
> ¿Como cargar una imagen ubicada desde una celda determinada en un
> control
> picture?
>
> o tal vez tengan en mente otro control
> para hacerlo dinamico.
>
> Gracias de antemano.
> atte
>
>
>

Hola Jesus
prueba con esta macro te hace una imgen del rango y te la guarda en una
direccion luego esta al cargar el userform te la carga en la imagen que
tengas puesta en micaso se llama imagen4:

----------------------------------------------------
Private Sub prueba()
Dim choObj As ChartObject, chGráf As Chart, ptImagen As Object
Dim blnGuardado As Boolean

Worksheets("Sheet1").Range("h1").CopyPicture appearance:=xlScreen,
Format:=xlPicture

Set choObj = ActiveSheet.ChartObjects.Add(0, 0, 800, 600)
Set chGráf = choObj.Chart

choObj.Activate
chGráf.ChartArea.Select
chGráf.Paste
Set ptImagen = chGráf.Pictures(1)

ptImagen.Left = 0
ptImagen.Top = 0

choObj.Border.LineStyle = xlNone
choObj.width = ptImagen.width + 7
choObj.height = ptImagen.height + 7

blnGuardado = chGráf.Export(Filename:="C:\Documents and
Settings\DANIEL\Mis documentos\0DANIEL\Mis imágenes\fotos
canadienses\NEG_amie1.jpg", FilterName:="JPG")
If Not blnGuardado Then MsgBox prompt:="Problemas al guardar la
imagen.", Buttons:=vbOKOnly + vbExclamation
choObj.Delete

With Me.Image4
.Picture = LoadPicture("C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\Mis imágenes\fotos canadienses\NEG_amie1.jpg")
.PictureSizeMode = fmPictureSizeModeZoom
.AutoSize = True
End With

Set choObj = Nothing
Set chGráf = Nothing
Set ptImagen = Nothing
End Sub

-------------------------


espero que te valla cualquier cosa comentas



"JESUS SERRANO" <jserrano[at]jabs[dot]com[dot]pe> escribió en el mensaje
news:u%237Wi3VRHHA.4448***TK2MSFTNGP04.phx.gbl...
> Que tal doctores
>
> ¿Como cargar una imagen ubicada desde una celda determinada en un
> control
> picture?
>
> o tal vez tengan en mente otro control
> para hacerlo dinamico.
>
> Gracias de antemano.
> atte
>
>
>

Hola Jesus
prueba con esta macro te hace una imgen del rango y te la guarda en una
direccion luego esta al cargar el userform te la carga en la imagen que
tengas puesta en micaso se llama imagen4:

----------------------------------------------------
Private Sub prueba()
Dim choObj As ChartObject, chGráf As Chart, ptImagen As Object
Dim blnGuardado As Boolean

Worksheets("Sheet1").Range("h1").CopyPicture appearance:=xlScreen,
Format:=xlPicture

Set choObj = ActiveSheet.ChartObjects.Add(0, 0, 800, 600)
Set chGráf = choObj.Chart

choObj.Activate
chGráf.ChartArea.Select
chGráf.Paste
Set ptImagen = chGráf.Pictures(1)

ptImagen.Left = 0
ptImagen.Top = 0

choObj.Border.LineStyle = xlNone
choObj.width = ptImagen.width + 7
choObj.height = ptImagen.height + 7

blnGuardado = chGráf.Export(Filename:="C:\Documents and
Settings\DANIEL\Mis documentos\0DANIEL\Mis imágenes\fotos
canadienses\NEG_amie1.jpg", FilterName:="JPG")
If Not blnGuardado Then MsgBox prompt:="Problemas al guardar la
imagen.", Buttons:=vbOKOnly + vbExclamation
choObj.Delete

With Me.Image4
.Picture = LoadPicture("C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\Mis imágenes\fotos canadienses\NEG_amie1.jpg")
.PictureSizeMode = fmPictureSizeModeZoom
.AutoSize = True
End With

Set choObj = Nothing
Set chGráf = Nothing
Set ptImagen = Nothing
End Sub

-------------------------


espero que te valla cualquier cosa comentas



"JESUS SERRANO" <jserrano[at]jabs[dot]com[dot]pe> escribió en el mensaje
news:u%237Wi3VRHHA.4448***TK2MSFTNGP04.phx.gbl...
> Que tal doctores
>
> ¿Como cargar una imagen ubicada desde una celda determinada en un
> control
> picture?
>
> o tal vez tengan en mente otro control
> para hacerlo dinamico.
>
> Gracias de antemano.
> atte
>
>
>