Stacking Pictures When Cell Conditions Met

Hello All,

I have a series of pictures that I would like a macro to populate pictures dependent on a cell value. I would like these pictures to stack on top of each other to create a composite picture.

Attached is a sample of my workbook, I am not sure this is feasible but I figured I would ask!

I have tried using an indirect function but am having issues with the overlay and sizing.

Thank you for your time and any feedback, let the know if you need any more info!

Kyle

Thank you very much davesexcel, This is very helpful.

I have successfully recreated the outcome on my worksheet, I do have two follow up questions:

1. Can I have the target address on another sheet? I have tried to add in the name of the sheet before the cell but have been unsuccessful so far.
2. For the target cell: The text coming up in this cell is created by a formula, and I cannot seem to get the change event to happen if the cell is referenced, only if I directly type in the condition.

I would like the pictures to show up based on the results in Sheet1 cell H6. The cell is dependent on an x being placed in either E6 or F6 or both to get None Left Right Or Both

I apologize, I am not very educated on VBA. I also want to make sure I am understanding your response,

The worksheet_change event has to be in the actual sheet's module you are changing.

I cannot have the pictures show up on sheet2 if the reference cell is on sheet1?

Right click the sheet1 tab and select "View Code", place this code there.

I have placed this code in the sheet one code area but am not seeing any changes to the workbook when an X is placed in E6, F5 or both.

Thank you for your patience and help with this.

Thank you so much, I am not sure what I was doing wrong before but this works exactly as I dreamed!!!

I figured out that my beforedoubleclick will not trigger the change event, is there an easy solution to set a beforedoubleclick event in the "target, range" to trigger the change event? Or maybe I am asking too much of this spreadsheet. Below is my code for both the beforedoubleclick and for the change event.

BeforeDoubleClick

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("E7:F10,E12:E15,E17:F18,E20,E26,L7:M8,L9,L12:M13,L14,L17,L24")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = "X" Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = "X"
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Event change

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, y, sh As Worksheet
    
    If Not Application.Intersect(Target, Me.Range("E7:F7")) Is Nothing Then    ' indicates the Target range
        Set sh = Sheets("Final Sheet")
        x = IIf(Range("E7") = "X", 1, 0)
        y = IIf(Range("F7") = "X", 1, 0)
        
        With sh
            .Shapes.Range(Array("LFTO")).Visible = x
            .Shapes.Range(Array("RFTO")).Visible = y
        End With
        
    End If

End Sub

Again thank you so much that was a problem I was working on for quite sometime and no other solutions worked, the change event was the perfect solution.

Kyle

I see.

Thank you so much for all your help. You have been very patient and helpful!!!

Great, I appreciate this!

Im having some trouble getting a picture to show up if the reference cell has a formula in it. Is this possible? Below is the code, I have tried adding in application.enableevents, but have not had success.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, y, sh As Worksheet
    
    If Not Application.Intersect(Target, Me.Range("D2")) Is Nothing Then    ' indicates the Target range
       Set sh = Sheets("Sheet2")
        x = IIf(Range("D2") = "2", 1, 0)
        
        With sh
            .Shapes.Range(Array("Picture")).Visible = x
        End With
        
    End If

End Sub

the formula in the cell is

=MAX(A2,B2)-MIN(A2,B2)

I am hoping to have the picture pop up any time that D2 is greater than 2.

Oh wow this is perfect! I will use this and these formulas a lot! It helped my figure out the calculate event. Amazing!
Thank you!