2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD.hu témák
Keresés

Hirdetés

  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    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

  • #43081 Delila_1 Topikgazda zsolti_20 #43077
    Új Válasz #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

    Topikgazda

    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.

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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