原创并分享：我的得意代码

weiyingde

很好的代码，谢谢了

loquat

时隔这么久了再来看楼主的代码，才发现楼主的研究颇深啊

zhanglei1371

loquat 发表于 2016-1-5 10:52
时隔这么久了再来看楼主的代码，才发现楼主的研究颇深啊

也就是颇那么一丁点而已。
api不会，gdi不会，窗体不熟，hook不懂，com外接对象不熟，，，，，各种的不会啊。
现在更是力不从心了。。。忙得要死。。。。

feichangxuyao

好高深，我表示看不懂

loquat

zhanglei1371 发表于 2016-1-5 22:25
也就是颇那么一丁点而已。
api不会，gdi不会，窗体不熟，hook不懂，com外接对象不熟，，，，，各种的不 ...

不得不说，代码都是实用型

georgegenx

十分感谢楼主，里面有很多很实用的宏，正是我所需要的，谢谢楼主的无私分享！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

duanjf889

已下载  学习了   谢谢分享。

liuhaibo_416

因为每天都要写报告，报告的模板公司已经规定，每次都要将大量的图片插入到已经建立好的图片中，要逐张调整尺寸适应表格的大小，浪费大量的时间。

请教楼主，能否编一组代码实现如下功能：选择照片插入到指定表格后，照片自动根据表格大小调整尺寸，谢谢，楼主！

zhanglei1371

liuhaibo_416 发表于 2016-5-6 13:52
因为每天都要写报告，报告的模板公司已经规定，每次都要将大量的图片插入到已经建立好的图片中，要逐张 ...

Sub sadf()
    h = Selection.Cells(1).Height
    w = Selection.Cells(1).Width
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Sub
        Set p = Selection.InlineShapes.AddPicture(FileName:=.SelectedItems(1), SaveWithDocument:=True)
        With p
            .Width = w
            .Height = h
        End With
    End With
End Sub

feilang5000

谢谢楼主的无私奉献！