2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

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

    Mobilarena

    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

  • #8213 Delila_1 Topikgazda Fboy #8211
    Új Válasz #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

    Topikgazda

    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.

    [ Szerkesztve ]

    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