Saltar al contenido

Codigo VBA ocultar imagen

publicado

Tengo un problema en mi codigo VBA es el siguiente ya que me oculta todas las imagenes en mi hoja y solo quiero que me oculte una que es el nombre de la imagen que lo pongo en la celda J23:

Private Sub Worksheet_Change(ByVal Target As Range)

    Rango = "J23"

    If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then

        For i = 1 To ActiveSheet.Shapes.Count

            If ActiveSheet.Shapes(i).Name <> Range("J23").Text Then

               ActiveSheet.Shapes(i).Visible = False

            Else

               ActiveSheet.Shapes(i).Visible = True

            End If

        Next

     End If

End Sub

Código_QR.png

Featured Replies

publicado

Prueba el siguiente codigo haber si es lo que quieres

Private Sub Worksheet_Change(ByVal Target As Range)

    Rango = "J23"
'
    If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then

        For i = 1 To ActiveSheet.Shapes.Count

            If ActiveSheet.Shapes(i).Name <> Range("J23").Text Then

               ActiveSheet.Shapes(i).Visible = True

            Else

               ActiveSheet.Shapes(i).Visible = False

            End If

        Next

     End If

End Sub

si rango es igual  a vacio se ven todas las imagenes solo se oculta la que se pone en j23

publicado
  • Autor

Gracias por la ayuda me funciono!

Tambien habia implementado este codigo para solucionarlo:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Rango As String

    Rango = "J23"

    If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then

        For i = 1 To ActiveSheet.Shapes.Count

            ActiveSheet.Shapes(i).Visible = True

            

        Next i

        

        For i = 1 To ActiveSheet.Shapes.Count

            If ActiveSheet.Shapes(i).Name = Range("J23").Text Then

                ActiveSheet.Shapes(i).Visible = False

                

                Exit For

                

            End If

            

        Next i

        

    End If

    

End Sub

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.