Macro dependiendo de dos checkbox en un mismo userform
Cómo estás.? Con tu ayuda creamos la macro a continuación, la cual copia un rango de celdas y las pega como imagen en un control imagen en un userform.. Anda excelente.. El tema es el siguiente.. Necesito que dependa de dos checkbox que tengo en mi userform1. Ahí varias userform en mi proyecto pero en la userform1 están los checkbox. Si el uno está activo lanzarla tal cual, pero si el dos está activo que en ves de la hoja "PP" sea de la hoja "PP2". Mismo rango de celdas pero distinta hoja. En caso de estar ambos en blanco un cartel que diga que sañale alguno. Ya puse una sentencia que no permite tildar los dos.. Me ayudas.?
Private Sub UserForm_Activate()
Dim Imagen As Chart
Dim Result As Boolean
Archivo = ThisWorkbook.Path & "\" & "paso.jpeg" Sheets("PP").Select
With Range("B2:Z58")
.CopyPicture Appearance:=xlScreen,Format:=xlPicture
Set Imagen = .Parent.ChartObjects.Add(10, 10, .Width, .Height).Chart
End With
Imagen.Parent.Activate
Imagen.Paste
Imagen.ChartArea.Border.LineStyle = 0 Imagen.ChartArea.Width=Imagen.ChartArea.Width * 3
Imagen.ChartArea.Height=Imagen.ChartArea.Height * 3
On Error Resume Next
Kill Archivo Result = Imagen.Export(Archivo) Imagen.Parent.Delete
Set Imagen = Nothing
If Result Then
Image1.Picture = LoadPicture(Archivo)
End If
End Sub