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

• #17243 Delila_1 veterán Mutt #17241

  Új Válasz 2013-03-14 07:07:37 #17243

  Ú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

  

  Delila_1

  veterán

  válasz Mutt #17241 üzenetére

  Köszönöm! Ennek megfelelően módosítva a makró

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ShapeDel As Integer
  Dim wPath As String
  
  If Target.Address = "$A$1" Then
  ShapeDel = ActiveSheet.Shapes.Count
  Do
  If Shapes(ShapeDel).Type <> 8 Then Shapes(ShapeDel).Delete
  ShapeDel = ShapeDel - 1
  Loop While ShapeDel > 0
  Range("B5").Select
  
  Select Case Range("A1").Value
  Case "pic1"
  wPath = ThisWorkbook.Path & "\pic1.jpg"
  ActiveSheet.Pictures.Insert (wPath)
  Case "pic2"
  wPath = ThisWorkbook.Path & "\pic2.jpg"
  ActiveSheet.Pictures.Insert (wPath)
  Case "pic3"
  wPath = ThisWorkbook.Path & "\pic3.jpg"
  ActiveSheet.Pictures.Insert (wPath)
  End Select
  
  End If
  End Sub

  Remélem, whatnot is ellátogat újra.

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