foto's rasteren in Excel.

[leon2013]

hallo.

ik ben op zoek naar de mogelijkheid om foto in excel te plaatsen en deze daarna te rasteren.
ik kan nu wel de raster toe passen.
maar zodra ik er een foto in plak dan gaat deze over de rasters heen.
ik heb al geprobeerd om de foto naar de achtergrond te zetten maar dit gaat niet/ niet goed.

weet iemand de oplossing voor deze vraag stuk.

ik heb een voorbeeld foto toe gevoegd.Bekijk bijlage test foto.xls

gr leon

 

[alphamax]

wat is je doel van het rasterenen?
als je wil overtrekken dan kan dat zelfs met windows paint beter
voldoende inzoomen en dan CTRL+G

 

[leon2013]

het doel is de foto van rasters te voorzien zodat ik kan tellen om het te borduren

 

[alphamax]

excel 2007nl - lint "pagina-indeling" - blok "pagina-instelling" - knop "achtergrond"

de afbeelding wordt op de achtergrond "getegeld"

een blauw verlopende achtergrond krijg je door de niet gebruikte rijen en kolommen te verbergen

 

[jolivanes]

Kijk eens op Blad2 of dat een mogelijke oplossing zou zijn.

 

[snb]

Voortbordurend op Jolivanes' suggestie:

Sub Draw_Raster()
    With Sheet2.Shapes("Picture 1")
        .Width = 624
        .Height = 465
        a = .Width / .Parent.Range("P6").Value
        b = .Height / .Parent.Range("P7").Value
    
        With .Parent
           For i = 1 To Application.Max(.Range("P6:P7")) - 1
              If i <= .Range("P6").Value Then .Shapes.AddLine(a * i, 0, a * i, .Height).Line.Weight = 0.1
              If i <= .Range("P7").Value Then .Shapes.AddLine(0, b * i, .Width, b * i).Line.Weight = 0.1
           Next
       end with
    End With
End Sub


Sub Del_Raster()
    For Each ln In Sheet2.Shapes
        If ln.Type = 9 Then ln.Delete
    Next ln
End Sub

 

[pixcel]

http://www.borduureenfoto.nl/
Wil je meer dan dit?

 

[jolivanes]

@snb
Ik hoopte dat een van jullie het zou bekijken en het beter zou maken.

De lijn

.Shapes.AddLine(a * i, 0, a * i, .Height).Line.Weight = 0.1

geeft echter de foutmelding "Object doesn't support this property or method."
Het "a * i" gaat niet goed want dat had ik mijn code ook al geprobeerd zonder geluk en met dezelfde foutmelding.
Enig idee?

Regards
Han

 

[snb]

Private Sub CommandButton1_Click()
    With Sheet2.Shapes("Picture 1")
        .Width = 624
        .Height = 465
        a = .Width / .Parent.Range("P6").Value
        b = .Height / .Parent.Range("P7").Value
    
        With .Parent
           For i = 1 To Application.Max(.Range("P6:P7")) - 1
              If i <= .Range("P6").Value Then .Shapes.AddLine(a * i, 0, a * i,[COLOR="#FF0000"] .Shapes("Picture 1").[/COLOR]Height).Line.Weight = 0.1
              If i <= .Range("P7").Value Then .Shapes.AddLine(0, b * i, [COLOR="#FF0000"].Shapes("Picture 1").[/COLOR]Width, b * i).Line.Weight = 0.1
           Next
       End With
    End With
End Sub

 

[jolivanes]

@snb.
Inderdaad. Dat is 'm.
Dus niet de "a * i" maar ".Shapes("Picture 1")"
Harstikke bedankt

Han