Köszönöm, utánajárok és próbálkozom.

Burjanos

Szia Imre!

Találkoztam egy másik „talánnyal” is.

A feladat az, hogy ha egy képre rámegy az egér, akkor mutassa meg a kép kinagyított képét és az egér mozgásával párhuzamosan mozogjon a kinagyított kép.

A feladatot úgy oldottam meg, hogy felvettem egy „Label” vezérlőt akkora méretben, mint a kis kép és rátettem a képre. A „Label”-t láthatatlanná akarom tenni, hogy ne rontsa el az eredeti képet, ezért a BackStyle= 0 – fmBackStyleTransparent-re, a BorderStyle= 0 – fmBorderStyleNone-re állítottam (mivel üres BackColor-t és BorderColor-t nem tudok beállítani). A „Label” vezérlőre programoztam le az egér mozgatását és így jól is működik.
DE
Ha az egér mozgatása közben bármelyik gombbal klikkelek az egérrel, akkor a „Label” láthatóvá válik (feltöltődik a beállított BackColor színnel), azaz elveszti az „átláthatóságát”. Ez egy excel hiba vagy valamit nem állítottam be? Mert szerintem a klikk hatására sem kéne látszódnia a „Label”-nek (hiszen Transparent-re van állítva).

Zippelve küldöm az egyszerűsített próba programomat.

Kösz előre is, hogy átgondolod a problémát.

Üdv, burjanos

Szia Imre!

Próba képpen az értékadás sort ( Range(„A7”).Value = 2 ) lecseréltem az adattörlésre ( Range(„A7”).ClearContents ) és így jól működik, azaz a MsgBox megjelenése előtt „frissíti” a felületet, azaz a téglalapot elmozgatja. Ez nagyon érdekes. Mi lehet ennek az oka? Kösz a segítségért.

burjanos

Küldöm zip-ként

Leokézva a MsgBox és végrehajtódik a téglalap elmozgatása

Mivel az excel file-t nem lehet bemásolni, így a felületet küldöm el, hogy hogyan változott a makró végrehajtása során illetve magát a makrót.

Az első kép az alaphelyzet, itt kell ráklikkelni a Start gombra