Muffledsatyr

回復  ML089


太棒了!!有各位神人真的幫我很大的忙!!有上百張~上千圖片要貼呢!!
真的非常感謝~

另 ...
Muffledsatyr 發表於 2021-4-16 10:46

像這樣的條件...
EXCEL欄寬42 列高170
圖片高度5.79公分 寬度7.72公分有辦法加入嗎?

非常感謝~

Muffledsatyr

回復  samwang


   

太棒了!!
固定A1我剛好也需要 XD!!真是挖到寶了!!非常感謝神人出手幫忙....
...
Muffledsatyr 發表於 2021-4-16 10:47

    像這樣的條件...
EXCEL欄寬42 列高170
圖片高度5.79公分 寬度7.72公分有辦法加入嗎?

非常感謝~

samwang

回復 12# Muffledsatyr

圖片高度5.79公分 寬度7.72公分有辦法加入嗎?
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(i), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)  
Rng.Width , Rng Height 可以直接改成你需要的數值如下，如果不改就是依照excel實際大小貼入
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(i), msoFalse, msoCTrue, Rng.Left, Rng.Top, 7.72, 5.79)

samwang

回復 12# Muffledsatyr

請測試看看，不太了解是不是你要的結果，謝謝

Sub tt2()
Dim PicList, PicFormat$, Rng As Range, sShape As Shape, i&, X%, Y%
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
X = 1
If IsArray(PicList) Then
    For i = 1 To UBound(PicList)
        Y = Y + 1
        If Y > 5 Then X = X + 1: Y = 1    '5張換下一列
        Set Rng = Cells(X, Y)
        Cells(X, Y).ColumnWidth = 42  '設定excel寬度
        Cells(X, Y).RowHeight = 170   '設定excel高度
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(i), msoFalse, msoCTrue, Rng.Left, Rng.Top, 7.72, 5.79)  '數字可設定照片寬高
    Next
End If
End Sub

Muffledsatyr

回復 14# samwang


   

測試過後EXCEL欄寬有變，可使圖片沒有變...不過還是謝謝你 ^0^

下載 (123.93 KB)

2021-4-17 10:20

Muffledsatyr

回復 15# Muffledsatyr


    我有改數值!!感覺那個好像是單位的問題!!
例如公分和像素的問題導致圖片大小的差異....非常感謝!!!

samwang

回復 15# Muffledsatyr

請再測試看看，是不是您的需求，謝謝

圖片在Excel高度5.79公分 寬度7.72公分
下列程式碼需修改數值如下, 未來可自行修改所需
高度: 5.79 / 0.0353 = 164
寬度: 7.72 / 0.0353 = 219

Set sShape = ActiveSheet.Shapes.AddPicture(PicList(i), msoFalse, msoCTrue, Rng.Left, Rng.Top, 219, 164)  '數字可設定照片寬高

Muffledsatyr

回復 17# samwang


嗯嗯沒關係我依照你的公式修改了!!
真的方便很多，幾百張圖不需人工一一調整了!!非常感謝~

Muffledsatyr

回復  Muffledsatyr

固定從A1 開始排列，請試看看，謝謝

Sub tt()
Dim PicList, PicFormat$, Rng A ...
samwang 發表於 2021-4-15 13:53

    最近公司電腦為了節省經費更換成LIBRE，執行VBA時都無法執行!!
想請問有什麼方式能通用呢?謝謝....

e86137

回復 19# Muffledsatyr

LIBRE可以執行巨集嗎?
我公司也有買新電腦
裡面內建LIBRE結果原本寫好的巨集都不能用
只好自己灌Office 2007