kumandanim
Merhaba,Bir Excel dosyam var, bu dosyada A5' e eklediğim fotoğraf otomatik olarak aynı sayfadaki A30' a da eklensin istiyorum, bu makro ile mümkün heralde.Bir de genel olarak excel kullanıyorum formüller fln da tamam belli seviyede ama bi' yukarısına geçemedim, makro kullanmayı bilmiyorum mesela, na
Merhaba,
Bir Excel dosyam var, bu dosyada A5' e eklediğim fotoğraf otomatik olarak aynı sayfadaki A30' a da eklensin istiyorum, bu makro ile mümkün heralde.
Bir de genel olarak excel kullanıyorum formüller fln da tamam belli seviyede ama bi' yukarısına geçemedim, makro kullanmayı bilmiyorum mesela, nasıl yaparım ?
Bir Excel dosyam var, bu dosyada A5' e eklediğim fotoğraf otomatik olarak aynı sayfadaki A30' a da eklensin istiyorum, bu makro ile mümkün heralde.
Bir de genel olarak excel kullanıyorum formüller fln da tamam belli seviyede ama bi' yukarısına geçemedim, makro kullanmayı bilmiyorum mesela, nasıl yaparım ?
0
0
Sub sdfsdf()
Dim ws As Worksheet
Dim img As Picture
Set ws = ThisWorkbook.Sheets(1)
Set img = ws.Pictures("buraya resim dosyasının adını yazarsın")
If Not img Is Nothing Then
With ws.Range("A30")
img.Copy
.PasteSpecial
Application.CutCopyMode = False
End With
End If
End Sub
Dim ws As Worksheet
Dim img As Picture
Set ws = ThisWorkbook.Sheets(1)
Set img = ws.Pictures("buraya resim dosyasının adını yazarsın")
If Not img Is Nothing Then
With ws.Range("A30")
img.Copy
.PasteSpecial
Application.CutCopyMode = False
End With
End If
End Sub
0
resim dosyası sürekli değişir isim filan uğraşamam dersen de şunu kullan
Sub sdfsdf()
Dim ws As Worksheet
Dim img As Shape
Set ws = ThisWorkbook.Sheets(1)
For Each img In ws.Shapes
If Not Intersect(img.TopLeftCell, ws.Range("A5")) Is Nothing Then
img.Copy
ws.Range("A30").PasteSpecial
Application.CutCopyMode = False
Exit For
End If
Next img
End Sub
Sub sdfsdf()
Dim ws As Worksheet
Dim img As Shape
Set ws = ThisWorkbook.Sheets(1)
For Each img In ws.Shapes
If Not Intersect(img.TopLeftCell, ws.Range("A5")) Is Nothing Then
img.Copy
ws.Range("A30").PasteSpecial
Application.CutCopyMode = False
Exit For
End If
Next img
End Sub
0
