批量图片链接鼠标经过图片放大【VBA】

lee正熙

如图所示 A列为图片链接 鼠标经过B列时会出现A列图片链接的图片

493861364

是不是可以理解为，你的问题是想把超链接的图片用代码批量写入单元格的批注？

lee正熙

493861364 发表于 2022-6-21 15:52
是不是可以理解为，你的问题是想把超链接的图片用代码批量写入单元格的批注？

是的 ！！！！！！！！！！！！！！！！

493861364

lee正熙 发表于 2022-6-21 16:35
是的 ！！！！！！！！！！！！！！！！

试了试，水平有限，去vba版块问一下吧

02761752696

lee正熙 发表于 2022-6-21 16:35
是的 ！！！！！！！！！！！！！！！！

这样吗？

zpy2

这样子的吗？


cli_add_css~～ .myImg {     display: block;         position:absolute;         left:400px; max-width:500px; }～; cli_add_html~<img src="" alt="" class="myImg">; cli_add_script~～                 var body=document.querySelector("body");         function mouseoverHandle(e){ var clientY=e.clientY;         var pic=e.target;         var img=document.querySelector(".myImg");         var url=pic.getAttribute("data-url");         if(url!=null){                 img.style.display="block";                 img.src=url;                 img.style.top=clientY+"px";                 img.style.left=e.clientX+"px";                         }else{                 img.style.display="none";                 } } var link = document.getElementsByClassName("pic"); for (var i = 0; i < link.length; i++) {   link.index = i;                 link.addEventListener("mouseenter",mouseoverHandle); } ～; select rowid,图片链接,'<a href="#" class="pic" data-url="'||图片链接||'" >'||编号||"</a>" 编号 from 鼠标经过B列时会出现A列图片链接的图片;

02761752696

疏忽了
第一个 MsgBox i 提示i要减去1
第二个 MsgBox i 提示i要减去2
提示才正确

02761752696

zpy2 发表于 2022-6-22 13:22
这样子的吗？

老师这个真牛，https://club.excelhome.net/thread-214368-1-1.html

帮忙看看这个，特效怎么实现的呢、网上找鼠标特效没找到这样的网页特效，能帮做个例子不？

493861364

02761752696 发表于 2022-6-22 17:03
老师这个真牛，https://club.excelhome.net/thread-214368-1-1.html

帮忙看看这个，特效怎么实现的呢 ...

这个效果原来的flash软件能做，vba做的太牛了

zpy2

02761752696 发表于 2022-6-22 17:03
老师这个真牛，https://club.excelhome.net/thread-214368-1-1.html

帮忙看看这个，特效怎么实现的呢 ...

我也是搬运的，这个特效还真没找到。回头我再看看搜索一下。