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

• #43081 Delila_1 veterán zsolti_20 #43077

  Új Válasz 2020-02-17 11:53:46 #43081

  Ú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 zsolti_20 #43077 üzenetére

  A számokat sorold fel valahol egymás alatt, és hozz létre az A1 cellában egy érvényesítést ezekből. Feltételezem, hogy a számok egy-egy kép nevével megegyeznek.

  Rajzolj egy négyzetet (beszúrás, ábrák, alakzatok), aminek a Kép nevet adod.
  

  Private Sub Worksheet_Change(ByVal Target As Range)
Const utvonal As String = "F:\Jpg\"

If Target.Address = "$A$1" Then
ActiveSheet.Shapes.Range("Kép").Select
Selection.ShapeRange.Fill.UserPicture utvonal & Target.Value & ".jpg"
Cells(1).Select
End If
End Sub

  Rendeld a makrót a lapodhoz. Írd át az utvonal változót a saját útvonaladra, a végén legyen "\".
  Ha nem jpg kiterjesztésűek a képeid, a
  Selection.ShapeRange.Fill.UserPicture utvonal & Target.Value & ".jpg"
  sor végén írd át.

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