Blog Archive
About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2006-09-28
Se pretendermos inserir uma imagem numa folha de cálculo e dentro de uma "Image box control", como no exemplo:
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_styWiMzQ53VYSv7cPZ4Uky7QRae3--dyMAzz_SzquHGp-wB8AgohPl3J0dMND5221lpkWmAujTLGQl9LjZ0PGi6QPkZ9PQR54=s0-d)
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_uFs58rrt7-xDWTPYxXRxPbZ16dZladmRsXaG9G6Pdm_R3oIDxZWjNjKngLwJjX9Vmw978jUh-ODURv0C5EQFvWW8mwCR6u8A=s0-d)
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_vassqMUjk_l7ZGMeE0esDn1zxfrQznPGY1wG4OQ2Uil3vjoqoGoNhXtU8AXojQFW_D_4iCH7knFm43au3QxMNi8mLbLBwbwc0=s0-d)
podemos utilizar um pouco de Código:
Option Explicit
Private Sub CommandButton1_Click()
Dim myPictName As Variant
Dim Image1 As Image
myPictName = Application.GetOpenFilename _
(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
If myPictName = False Then
Exit Sub
End If
Me.Image1.Picture = LoadPicture(myPictName)
End Sub
podemos utilizar um pouco de Código:
Option Explicit
Private Sub CommandButton1_Click()
Dim myPictName As Variant
Dim Image1 As Image
myPictName = Application.GetOpenFilename _
(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
If myPictName = False Then
Exit Sub
End If
Me.Image1.Picture = LoadPicture(myPictName)
End Sub