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

Añade tu respuesta

Haz clic para o