- iPhone topik
- Apple Watch
- Poco F7 – bajnokesélyes
- Android alkalmazások - szoftver kibeszélő topik
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Google Pixel topik
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- Szívós, szép és kitartó az új OnePlus óra
- Poco F6 5G - Turbó Rudi
- Honor 200 Pro - mobilportré
Új hozzászólás Aktív témák
-
maugly
csendes tag
A segítségetekre lenne szükségem.

PowerPoint makrót szeretnék használni.
A feladatom az lenne, hogy egy diagram elemeit (legalább a szövegrészeket) egyenként nagyítsam és kicsinyítsem, mindig azt, amit a felhasználó aktiválni kíván az egérrel.
Nem vagyok egy nagy VB-guru, ez az első próbálkozásom benne, így főleg a help-file alapján, meg a kis fejlődésben lemaradt ősrégi programozói tapasztalataimmal próbálkoztam.
Az alap, a kicsinyítés-nagyítás megvan, ezt kellene kicsit univerzálisabbá tennem, ami a helyes szintaktika és a pontosabb programnyelv-ismeret nélkül eléggé kifog rajtam.
Addig jutottam, hogy az egyes elemeket tudom azonosítani (mivel a PowerPoint ad nekik egyedi azonosítót), valahogy így:
ActiveWindow.Selection.ShapeRange.GroupItems(Index:=53).TextFrame.TextRange.Characters(Start:=1, Length:=100).Select
With ActiveWindow.Selection.TextRange.Font
Szép hosszú, gyanítom, akad egyszerűbb is.
A kérdésem az, hogy hogyan tudok hivatkozni az aktivált GroupItem Indexére? Van valamilyen ''gyári'' változó, ami ezt tartalmazhatja, vagy valami hasonló?
Új hozzászólás Aktív témák
- Mégis meglepi egy új GeForce-szal a rajongókat az NVIDIA?
- iPhone topik
- Épített vízhűtés (nem kompakt) topic
- E-roller topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Kerékpárosok, bringások ide!
- Path of Exile (ARPG)
- Autós topik
- További aktív témák...
- GYÖNYÖRŰ iPhone 14 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3972
- BESZÁMÍTÁS! MSI B450 R5 5600X 16GB DDR4 512GB SSD RTX 2070 Super 8GB Rampage SHIVA Adata 600W
- í kilenc! AKCIÓS PRECÍZIÓS KÉSZÜLÉK! 7560 i9-11950H 32GB RAM 1TB SSD Nvidia RTX A3000 6GB 1 év gar
- Samsung Galaxy S23 / 8/256GB / Kártyafüggetlen / 12Hó Garancia
- Dell D6000 univerzális dokkoló USB-C/ USB-A, DisplayLink & Dell WD15 (K17A) USB-C + 130-180W töltő
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



