Kod ofis 2003 -2007-2016 da çalışıyor.
Private Sub CommandButton1_Click()
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
If TypeName(Picture.OLEFormat.Object) = "OLEObject" Then
If TypeName(Picture.OLEFormat.Object.Object) = "OptionButton" Then
If...
kod:
Private Sub CommandButton1_Click()
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
say = say + 1
Cells(say, 1) = Picture.Name
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object) = "OptionButton" Then
MsgBox...
...tek bir resim sığdırabilirsiniz örnek dosya ekte.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
...
...resimler geliyor. resmi olmayanlarda eski resim geliyor.
yenile sub tarzında bir sayfa yeniletme kullanıyorum ama oraya image3 deki eski resmi temizletemiyorum.
su kodu denedim olmadı
Me.Image3.Picture = LoadPicture ("")
listboxdan sectiğim urunun resmi yok ise image3 boş kalsın istiyorum.
merhaba
userfornda image3 e resim çağırmaya kalktıgımda invalid picture hatası veriyor. yardımcı olurmusunuz aşağıdaki kodda yol olarak gösterilen yerde resim mevcut
Me.Image3.Picture = LoadPicture(ThisWorkbook.Path & "\Resim Dosyaları\" & TextBox2.Value & ".JPG")
...Ayhan ustadımın eskıden paylastıgı bır kod ısımı gördü tesekkur ederım
Sub RESIM_SIL()
Dim RESIM As Shape
For Each RESIM In ActiveSheet.Shapes
If InStr(1, RESIM.Name, "Picture") > 0 Then RESIM.Delete
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
...ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT = &H2C
Sub Selected_File()
Dim DialogBox As FileDialog, My_Picture As Picture, Alan As Range
Set DialogBox = Application.FileDialog(msoFileDialogOpen)
DialogBox.AllowMultiSelect = False...
Kullandığınız sayfa kodunu aşağıdaki ile değiştirip deneyiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Resim As Picture, Alan As Range, Veri As Range
Set Alan = Intersect(Target.Offset(, 1), Range("B:B"))
For Each Resim In ActiveSheet.Pictures
If Not...
...PicW = Range("C" & i).Width '???????????
PicH = Range("C" & i).Height '???????????
Set MyPic = ActiveSheet.Shapes.AddPicture(PicFile, True, True, PicLeft, PicTop, PicW, PicH) '???????????
ResumeFor:
Next
End Sub
Sub resimsil()
Dim Resim As Picture, Alan As Range...
...sayfasında resimler olsun ve resim sayfasında çalıştırın
AA. AB. AC. AD hücrelerindeki sonucu buraya yazın bir bakalım.
Sub deneme()
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
sat = sat + 1
Cells(sat, "AA") = Picture.Type
Cells(sat, "AB") = Picture.Name
Cells(sat, "AC") =...
...böyle olabilir
sat1 = 11
sat2 = 52
sut1 = 3
sut2 = 22
For Each Pic In sht.Shapes
If TypeName(sht.Shapes(Pic.Name).OLEFormat.Object) = "Picture" Then
If Pic.TopLeftCell.Row >= sat1 And Pic.BottomRightCell.Row <= sat2 Then
If Pic.TopLeftCell.Column >= sut1 And Pic.BottomRightCell.Column <=...
..."Empty" Then
For BakSyf = 0 To UBound(Sayfalar)
For Bak = 0 To UBound(Foto)
Worksheets(Sayfalar(BakSyf)).Pictures(Foto(Bak)).Delete
Next
Next
End If
End Sub
Sub PicturesInsertMultiMerge2()
Dim Bak As Integer
Dim BakSyf As...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.