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

• #8213 Delila_1 veterán Fboy #8211

  Új Válasz 2010-09-21 14:48:55 #8213

  Ú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 Fboy #8211 üzenetére

  Makróval megoldható.
  Beszúrtam egy térképet, aminek az Excel automatikusan a Kép 1 nevet adta. Utána elhelyeztem a térképen 12 kört, amiknek a neve Ellipszis 2 -Ellipszis 13 lett. A makróban Oval 2 - Oval 13 néven kell rájuk hivatkozni.
  Az első kör a piros, az óramutató járásával ellenkező irányban helyeztem el a többit.

  Makró:
  Sub Nagysag()
  Dim a As Integer
  Dim nev As String
  
  For a = 2 To 13
  nev = "Oval " & a
  ActiveSheet.Shapes(nev).Select
  Selection.ShapeRange.Height = Cells(a, 2) / 80
  Selection.ShapeRange.Width = Cells(a, 2) / 80
  Next
  End Sub

  Kép:
  

  Szerk.: a Cells(a,2)/80 helyett olyan osztót adj, ami egy jó méretet ad az ábrán.

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