Colocar imagen en varias Hojas

[Hola

¿Qué hay en "LIMPIARCHECKBOX"? ¿qué son "W" y "H"? ¿En qué celda de cada hoja debería insertarse la imagen? Además de las seis hojas que mencionas ¿cuántas hojas más hay y cómo se llaman?

Abraham Valencia

Este es un Modulo para limpiar los Checkbox y la imagen debe colocarse en la Celda A1

Sub LIMPIARCHECKBOX()
Dim c As Object
For Each c In ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Next
End Sub

Estos son los nombre de las otras hojas: "Proveedores", "Clientes", "Compras", "Ventas", "Devoluciones", "Inventario", "Tablas", "Dashboar", "Usuarios", "Datos" son 10 (diez) y estos son los nombres donde debe aparecer la imagen: "Factura", "Nota", "Presupuesto", "informe", "Guia" son 5 (cinco), te agradezco la ayudas que puedas prestarme. Nota: Todos los nombre de las Hojas son en Mayúsculas.

[Hola nuevamente

Como para que te des idea, y suponiendo que la imagen de cada hoja es distinta y la vas a elegir:

Dim Hoja As Worksheet
Dim fichero As Variant
Dim Imagen As Object
For Each Hoja In Worksheets
    If Hoja.Name = "Factura" Or Hoja.Name = "Nota" Or Hoja.Name = "Presupuesto" _
        Or Hoja.Name = "Informe" Or Hoja.Name = "Guia" Then
        Hoja.Unprotect "123"
        fichero = Application.GetOpenFilename
        If fichero = False Then Exit Sub
        Set Imagen = Hoja.Pictures.Insert(fichero)
        With Imagen
            .Top = Hoja.Range("A1").Top
            .Left = Hoja.Range("A1").Left
            .Height = Hoja.Range("A1").Height
            .Width = Hoja.Range("A1").Width
        End With
        Hoja.Protect "123"
    End If
Next Hoja

Comentas

Abraham Valencia

Muchísimas gracias amigo Abraham excelente el código

Lo resolví de esta manera para que seleccione una imagen y la coloque en las cuatro hojas a la vez.

Private Sub CheckBox1_Click()
Dim Hoja As Worksheet
Dim fichero As Variant
Dim Imagen As Object
fichero = Application.GetOpenFilename
For Each Hoja In Worksheets
Select Case Hoja.Name
Case "FACTURA", "PRESUPUESTO", "GUIA", "NOTA"
ActiveSheet.Unprotect "123"

If fichero = False Then Exit Sub
Set Imagen = Hoja.Pictures.Insert(fichero)
With Imagen
.Top = Hoja.Range("A1").Top
.Left = Hoja.Range("A1").Left
.Height = Hoja.Range("A1").Height
.Width = Hoja.Range("A1").Width
End With
Call QUITARSELC
End Select
Next
ActiveSheet.Protect "123"
End Sub