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

• #4092 Fire/SOUL/CD félisten Oly #4091

  Új Válasz 2008-11-21 14:00:53 #4092

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Oly #4091 üzenetére

  Hali!

  Na így már tiszta, mit is szerettél volna elérni.

  

  Munkafüzet1 - Munka1 (Code)

  Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo errorhandling
  xstr = LCase(Range("B2"))
  Pos = InStr(1, xstr, ".jpg", vbTextCompare)
  If (Pos > 0) Then
  Image1.PictureSizeMode = fmPictureSizeModeStretch
  Image1.Picture = LoadPicture(xstr)
  End If
  Exit Sub
  
  errorhandling: MsgBox ("FileOpen ERROR!")
  
  End Sub

  Na, asszem ez lesz az
  Ha nem a B2-ben lesz az adat akkor egyszerűen módosítsd a makróban, egy helyen kell.

  Fire.

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