批量插入图片并调整大小

joyark

回复 roych 的帖子

問題:
1.能否鼠标指到图片自动放大
2.鼠标在工作表其地方还原图片大小
在2010使用非常好用
加上放大功能更完美或在圖片名稱插批註插入圖片
有時間看看謝謝

joyark

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    恢复
End Sub

---

Private Sub Worksheet_Activate()    '激活这个工作表时，给每个代码增加宏
    宏
End Sub
Sub 放大()
    Application.ScreenUpdating = False
    恢复
    With Sheet1.Shapes(Application.Caller)
        .ZOrder msoBringToFront
        .Width = 240
        .Height = 150
        .TopLeftCell.RowHeight = 150
    End With
    Application.ScreenUpdating = True
End Sub

---

Sub 恢复()
    Application.ScreenUpdating = False
    Dim shp As Shape
    For Each shp In Sheet1.Shapes
        With shp
            If .Type = 13 Then
                .Width = 80
                .Height = 50
                .TopLeftCell.RowHeight = 50
            End If
        End With
    Next
    Application.ScreenUpdating = True
End Sub

---

Sub 宏()
    Dim shp As Shape
    Application.ScreenUpdating = False
    For Each shp In Sheet1.Shapes
        With shp
            If .Type = 13 Then
                .OnAction = "放大"
            End If
        End With
    Next
    Application.ScreenUpdating = True
End Sub

roych

回复 joyark 的帖子

O(∩_∩)O~，你稍稍改改应该就很好了，我就不处理啦。。

joyark

問題:
1.能否插入圖片後(自動使用指定宏)

c101

谢谢分享

方漠

谢谢分享. 收藏.
N久没上来过了.呵呵

mnwv

很感兴趣，学习一下

nantong718

学习一下呀

caoguangyao

学习,抄下

wuzhanye

不错，谢谢楼主分享