Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Mobilarena
    Frissítve: 2023-11-13 08:31 Téma összefoglaló
    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • Fire/SOUL/CD Fire/SOUL/CD félisten
    #4086
    #4084 Oly
    Új Válasz
    Ú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
    Fire/SOUL/CD
    Fire/SOUL/CD
    félisten
    #4084 Oly
    #4084 Oly

    Köszi!
    Ez megoldódot!

    A képes kérdésemre nem tudtok semmi ötletet?

    [link]

    Hali!

    Nos, a kért megoldáson kívűl még egy más módszert is beleraktam, érdekességként. A képet azért mellékeltem, nehogy más objektumot használj, hanem sima Image-t.

    Munkafüzet1 - Munka1(Code)

    Private Sub CommandButton1_Click()
    JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
    If JPGFile <> False Then
    Range("B2") = JPGFile
    Image1.PictureSizeMode = fmPictureSizeModeStretch
    Image1.Picture = LoadPicture(JPGFile)
    End If
    End Sub


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo errorhandling
    If (Target.Cells.Count = 1) And Target <> "" Then
    Range("B2") = Target
    Image1.PictureSizeMode = fmPictureSizeModeStretch
    Image1.Picture = LoadPicture(Target)
    End If
    Exit Sub
    errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
    End Sub

    Fire.

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