existen diversas formas,aqui una de ellas:
1.-inserta un control "image" en la hoja y asignale una imagen atrvez de la propiedad "Picture",que se mostrara la hacer click derecho sobre el control (debes estar trabajando en modo diseño,en la ficha programador)
2.-doble click sobre la iamgen , y te llevara hasta el evento click,ahi modifica oara que te quede asi:
Private Sub Image1_Click()R = MsgBox("desea agrandar la imagen?", vbYesNo, "Aviso")If R = vbYes Then Image1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2Else Image1.Width = Image1.Width / 2 Image1.Height = Image1.Height / 2End IfEnd Sub
salu2 ... ver debate
