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

• #9298 Fire/SOUL/CD félisten mr.nagy #9297

  Új Válasz 2011-02-01 18:32:46 #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