vba 如何修改新增公式 可以自動貼下一排

帖子: 17
主題: 4
精華: 0
積分: 67
點名: 0
作業系統: Win7 & Win10
軟體版本: Office 2003 & Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2020-2-4
最後登錄: 2024-4-19

21^#

發表於 2021-7-17 12:03 | 只看該作者

回復 Muffledsatyr

LIBRE可以執行巨集嗎?
我公司也有買新電腦
裡面內建LIBRE結果原本寫好的巨集都不 ...
e86137 發表於 2021-7-16 06:16

按熱鍵是有出現類似巨集的畫面，可是貼上後一樣無法使用才來跪求大神!!

Orz...

e86137

帖子: 21
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: W10
軟體版本: OFFICE2007
閱讀權限: 20
註冊時間: 2021-7-4
最後登錄: 2021-8-12

20^#

發表於 2021-7-16 06:16 | 只看該作者

回復 19# Muffledsatyr

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

帖子: 17
主題: 4
精華: 0
積分: 67
點名: 0
作業系統: Win7 & Win10
軟體版本: Office 2003 & Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2020-2-4
最後登錄: 2024-4-19

19^#

發表於 2021-7-14 19:38 | 只看該作者

回復 Muffledsatyr

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

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

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

帖子: 17
主題: 4
精華: 0
積分: 67
點名: 0
作業系統: Win7 & Win10
軟體版本: Office 2003 & Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2020-2-4
最後登錄: 2024-4-19

18^#

發表於 2021-4-19 09:31 | 只看該作者

回復 17# samwang

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

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

17^#

發表於 2021-4-17 11:04 | 只看該作者

回復 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) '數字可設定照片寬高

帖子: 17
主題: 4
精華: 0
積分: 67
點名: 0
作業系統: Win7 & Win10
軟體版本: Office 2003 & Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2020-2-4
最後登錄: 2024-4-19

16^#

發表於 2021-4-17 10:32 | 只看該作者

回復 15# Muffledsatyr

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

帖子: 17
主題: 4
精華: 0
積分: 67
點名: 0
作業系統: Win7 & Win10
軟體版本: Office 2003 & Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2020-2-4
最後登錄: 2024-4-19

15^#

發表於 2021-4-17 10:20 | 只看該作者

回復 14# samwang

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

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

14^#

發表於 2021-4-16 11:43 | 只看該作者

回復 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

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

13^#

發表於 2021-4-16 11:25 | 只看該作者

回復 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)