Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • 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

  • #9298 Fire/SOUL/CD félisten mr.nagy #9297
    Új Válasz #9298
    Ú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 mr.nagy #9297 üzenetére

    Itt egy egyszerű kód, ami az A1 "cellába" beilleszt bármilyen képet, 40x40 pixel méretben

    Sub Insert_Pic()

    Application.ScreenUpdating = False

    SelectedPic = Application.GetOpenFilename _
    ("Képformátumok (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Jelöljön ki egy képet")


    If SelectedPic <> False Then

    Range("A1").Select
    With ActiveSheet
    .Pictures.Insert (MyPicture)
    .Shapes(.Shapes.Count).Select
    End With

    With Selection
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.Top = ActiveCell.Top
    .ShapeRange.Left = ActiveCell.Left
    .ShapeRange.Height = 40
    .ShapeRange.Width = 40
    End With

    End If

    Application.ScreenUpdating = True

    End Sub

    Nem láttam a teljes kódod, de feltételezem ez a sor hiányzik belőle (ami a fenti kódban is megtalálható)
    .ShapeRange.LockAspectRatio = msoFalse

    Ha ennek az értéke msoTrue, akkor mindegy milyen értéket adsz meg a Width/Height esetén, az eredeti méretben fog bekerülni a kép.

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