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

• #24563 Delila_1 veterán firemanus82 #24559

  Új Válasz 2014-12-11 15:59:35 #24563

  Ú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

  veterán

  válasz firemanus82 #24559 üzenetére

  Két dolgot változtatnék a helyedben. Az első, hogy diagramok helyett szövegdobozokat tennék a második lapra, azokba tölteném fel a képeket. A másik, hogy 2 makróval hajtatnám végre a feladatot (másképp nem megy).
  Slashing változatánál maradva a képek nevét a 4. sorba viszem be.

  Az eseménykezelő makrók csak a saját lapjukon tudnak dolgozni, nem hajlandóak a másik lapon ügyködni. Meg lehet hívni viszont egy nem laphoz rendelt, hanem modulba helyezett másik makrót, átadva annak az értékeket.

  Az első lap, amibe a képek nevét viszem be, nálam Munka1 névre hallgat, a másik Munka2-re, a szövegdobozok txt_1, txt_2, ... txt_6 nevűek.

  Laphoz:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.ScreenUpdating = False
  If Target.Row = 4 Then
  Kepek Target.Column, Target
  Target.Select
  End If
  Application.ScreenUpdating = True
  End Sub

  Modulba:

  Sub Kepek(oszlop, nev)
  Sheets("Munka2").Select
  Select Case oszlop
  Case 2
  ActiveSheet.Shapes("txt_1").Select
  Case 3
  ActiveSheet.Shapes("txt_2").Select
  Case 4
  ActiveSheet.Shapes("txt_3").Select
  Case 5
  ActiveSheet.Shapes("txt_4").Select
  Case 6
  ActiveSheet.Shapes("txt_5").Select
  Case 7
  ActiveSheet.Shapes("txt_6").Select
  End Select
  Selection.ShapeRange.Fill.UserPicture "C:\Almappa\Al_Almappa\" & nev & ".jpg"
  Sheets("Munka1").Select
  End Sub

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