Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Kell e manapság egérpad vagy sem?
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- sziku69: Fűzzük össze a szavakat :)
- bambano: Bambanő háza tája
- btz: Internet fejlesztés országosan!
-
LOGOUT
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
-
Delila_1
veterán
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 SubSzerk.: 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
- Xbox Series X|S
- Battlefield 6
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Linux kezdőknek
- Lecsap az S26 Ultra az Exynos 2600-ra
- Gaming notebook topik
- One otthoni szolgáltatások (TV, internet, telefon)
- AMD Navi Radeon™ RX 9xxx sorozat
- Xiaomi 15T Pro - a téma nincs lezárva
- További aktív témák...
- Vírusirtó, Antivirus, VPN kulcsok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Árváltozás + játék DVD: Watch Dogs Deadsec Edititon
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- Lenovo ThinkPad P14s Gen 1 i7-10510U 32GB 512GB Nvidia Quadro P520 14" FHD Gar.: 1 év
- Lenovo L14 Thinkpad Gen2 FHD IPS i5-1135G7 16GB RAM 256GB SSD Intel Iris XE Win11 Pro WiFi6 Garancia
- Új FULL HD webkamera + Számla
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50
