批量插入图片并调整大小

joyark

大家喜欢的话就下载下来玩玩吧。

joyark

自動把圖片名稱一起寫入更好

joyark

回复 roych 的帖子

如果把,自動把圖片名稱一起寫入更好

joyark

回复 roych 的帖子

1.常試過2003可以2007不可以
2.不在f1開始插入圖片,可否在f3開插入圖片
3圖片名e1,可否在e3開始插入
謝謝幫忙,日後工作更方便

joyark

roych 的帖子
1.常試過2003可以2007不可以
2.不在f1開始插入圖片,可否在f3開插入圖片
3圖片名e1,可否在e3開始插入
謝謝幫忙,日後工作更方便

joyark

問題:
1.能否鼠标指到图片自动放大
2.鼠标在工作表其地方还原图片大小

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

joyark

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