Új hozzászólás Aktív témák

• #17225 whatnot őstag

  Új Válasz 2013-03-13 12:23:16 #17225

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  whatnot

  őstag

  Következő furcsa problémám akadt.
  A feladat a következő, event macro: A1 cella értékétől függően a workbook mappájából szúrjon be egy képet.
  Ezt a megírt macro meg is csinálja.
  A1 cellában data validation van, méghozzá droplisttel. Ezt is egyszerű beállítani.

  Azonban az első választást követően eltűnik a droplist. Maga a data validition még él, mert ha rossz értéket próbálok beírni, szól, hogy ilyen érték nem megengedett a data validation miatt. Viszont a droplist nem elérhető, nincs ott a nyíl a cella jobboldalán.
  Ez mitől lehet?

  Itt a kód:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim ShapeDel As Shape
  Dim wPath As String
  
  If Target.Address = "$A$1" Then
  
  For Each ShapeDel In ActiveSheet.Shapes 'ez minden képet töröl a munkalapról!
  ShapeDel.Delete
  Next
  
  Range("B2").Select
  
  Select Case Range("A1").Value
  Case "pic1"
  wPath = ThisWorkbook.Path & "\pic1"
  ActiveSheet.Pictures.Insert (wPath)
  Case "pic2"
  wPath = ThisWorkbook.Path & "\pic2"
  ActiveSheet.Pictures.Insert (wPath)
  Case "pic3"
  wPath = ThisWorkbook.Path & "\pic3"
  ActiveSheet.Pictures.Insert (wPath)
  End Select
  
  End If
  
  End Sub

Új hozzászólás Aktív témák