Hirdetés
- Ilyen olcsó sem volt még egy Apple notebook
- Túl nagy alkatrészt vettél? Így kerülheted el a PC-építés legnagyobb hibáját
- MWC 2026: leégsz, ha nem figyelsz a TCL 15 ezer nites panelje előtt
- Második villámcsapás: teszteltük a ROG Raikiri II Xbox kontrollert
- 100 TB-os HDD-k felé vezető alapot prezentált a Seagate
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Meghozta a régóta várt asztali Ryzen APU-kat az AMD
- Ilyen olcsó sem volt még egy Apple notebook
- Milyen billentyűzetet vegyek?
- Hogy is néznek ki a gépeink?
- E-book olvasók
- Megérkezett az Apple 5K-s, 120 Hz-et biztosító monitora
- Melyik tápegységet vegyem?
- Kormányok / autós szimulátorok topikja
- AMD APU (AM4 és AM5) topik
Ú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
- Brogyi: CTEK akkumulátor töltő és másolatai
- Építő/felújító topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- E-roller topik
- Meghozta a régóta várt asztali Ryzen APU-kat az AMD
- MWC 2026: Kezünkben a minden tekintetben európai okostelefon
- Vallás
- Ilyen olcsó sem volt még egy Apple notebook
- A fociról könnyedén, egy baráti társaságban
- Milyen billentyűzetet vegyek?
- További aktív témák...
- Újszerű HP EliteBook 640 G11 2028.12.Hó-ig Garis Ultra 5 135U 16GB DDR5 512GB SSD 9nap üzemidővel!
- ASUS Zenbook Flip UX360CA
- !AKCIÓ+GARI! GAMER PC Intel Core i5-14400F/ASUS TUF Gaming B760M/RTX 4070 12GB/32 GB DDR5 5200 MHz
- Új állapotú Samsung Galaxy S23 Ultra garanciával
- Kingston FURY Beast 16GB (2x8GB) DDR4-3600 CL17
- Keresünk Galaxy S22/S22+/S22 Ultra
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max/
- Eladó iPad Pro 12.9 tokok többféle színben és kivitelben!
- Apple iPhone 14 Plus 128GB, Kártyafüggetlen, 1 Év Garanciával
- Friss készlet! MacBook Pro 14" M1 16GB RAM 27%-os áfás számla (238)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


