Billeder uden baggrund

Prøv at ændre baggrundsfarven til transparant.

Har jeg prøvet og desværre uden held.

På både billede og din "image-ramme"?

Hvis det gælder Word:
Billeder bliver altid behandlet som firkantede, medmindre ombrydning er sat til Tæt (Tight) eller Igennem (Through). Forudsætningen for, at disse indstillinger har effekt, er, at der er transparente områder langs yderkanterne. Desuden skal afstanden fra tekst til indhold i billedet styres via parametre.

Markeret billede ændret til ombrydning henholdsvis Tæt og Igennem i VBA:
Selection.ShapeRange(1).WrapFormat.Type = wdWrapTight
Selection.ShapeRange(1).WrapFormat.Type = wdWrapThrough

#chrisrj
Ja begge.

#lene-fredborg

Kan ikke helt få det til at fungere det du skriver, men er heller ikke helt sikker på jeg har forklaret mit problem godt nok.

Billedet her under viser en ko og dens anatomi. Det er meningen jeg skal gøre hvert enkelt del til et link/click som fører til en handling. Dette fungerer ret godt i powerpoint hvor jeg på en måde kan undgå billedet bliver til en firkant og laver en hvid baggrund. Det samme gælder også at de ikke lapper ind over hinanden når man trykker på dem. Hvis der er en anden måde det kan løses på lutter jeg selvfølgelig også øre.

http://www.billedeupload.dk/images/6egdH.png

Er det PowerPoint, det skal virke i? Eller er det Word? Eller?

Det er visual basic form application.

Jo, men hvilket Office-program programmerer du til i VBA?

Jeg programmerer ikke til et andet program i officepakken, men i stedet et program fra bunden. Det kan være det er det forkerte forum så?

Foraet kan godt passe - det kommer an på, om du koder i vb6, også kaldet vb classic, eller om du koder i vb.net. :)

Hvis det er vb.net, er der en kategori til det: http://www.eksperten.dk/spm/Programmering/Visual-Basic-NET/ :)

Du skrev tidligere, at det var "visual basic form application". Jeg antog, at du mente "Visual Basic for Applications", også kaldet VBA. VBA knytter sig til de enkelte Office-programmer. Objektmodellerne i de forskellige programmer er forskellige, så samme kode vil ikke virke i f.eks. Word og Excel.

Det, jeg skrev vedr. VBA, var relateret til Word. Ud fra dit uploadede billede forestiller jeg mig, at det, du vil opnå, er, at billedet kan ligge under noget andet, som kan overlappe det helt eller delvis. I Word kan du få et billede til at ligge bag andet (andre objekter eller tekst) med ombrydning Bag ved tekst (Behind Text). En line svarende til de andre VBA-linjer vil da se sådan ud:

Selection.ShapeRange(1).WrapFormat.Type = wdWrapBehind

Jeg ved ikke, om det hjælper dig.

Lene: Form er det man kalder et vindue i kode termer. Men ved du ikke det, kan jeg godt forstå at du tror det er en stavebøf. :)

Nej, som chrisrj skriver, så er det ikke "for application", men VB classic  "form app". Kan selvfølgelig godt være jeg skal overveje bare, at lave programmet gennem PP.

Det var din skrivemåde af navnet, der fik mig til at antage, at det var VBA, du talte om. Jeg ved hvad en form er.

For at vende tilbage til spørgsmålet:

Du skal lave en custom clickbox. Jeg lavede engang for 700 milioner år siden(ca.) noget lignende i vb.net.


Jeg ved ikke, om du kan bruge det til noget, men her er det:


Dim ImageArray(10, 7) As Object

Sub AddPictureBoxes()
        Dim i As Int16

        i = 0

        While i < ImageArray.GetUpperBound(0)
            Dim pb As PictureBox
            If ImageArray(i, 5) Then
                pb = CreatePictureBox(ImageArray(i, 0))
            Else
                pb = CreatePictureBox(My.Resources.NotBuilt)
            End If


            pb.Location = New Point(ImageArray(i, 1), ImageArray(i, 2))
            pb.Name = "pb" & ImageArray(i, 3)

            Me.Controls.Add(pb)

            pb.Parent = Me
            pb.BringToFront()

            AddHandler pb.MouseClick, AddressOf pb_MouseClick
            AddHandler pb.MouseEnter, AddressOf pb_MouseEnter
            AddHandler pb.MouseLeave, AddressOf pb_MouseLeave

            i += 1
        End While
    End Sub

    Sub AddSinglePictureBox(ByVal ArrPos As Int16)
        Dim pb As PictureBox

        If ImageArray(ArrPos, 5) Then
            pb = CreatePictureBox(ImageArray(ArrPos, 0))
        Else
            pb = CreatePictureBox(My.Resources.NotBuilt)
        End If


        pb.Location = New Point(ImageArray(ArrPos, 1), ImageArray(ArrPos, 2))
        pb.Name = "pb" & ImageArray(ArrPos, 3)

        Me.Controls.Add(pb)

        pb.Parent = Me
        pb.BringToFront()

        AddHandler pb.MouseClick, AddressOf pb_MouseClick
        AddHandler pb.MouseEnter, AddressOf pb_MouseEnter
        AddHandler pb.MouseLeave, AddressOf pb_MouseLeave

    End Sub

    Private Function CreatePictureBox(ByVal ImageResource As Image) As PictureBox
        Dim bmp As New Bitmap(ImageResource)
        Dim gp As New System.Drawing.Drawing2D.GraphicsPath
        Dim mask As Color = bmp.GetPixel(0, 0)

        Me.BackColor = mask

        For x As Integer = 0 To bmp.Width - 1
            For y As Integer = 0 To bmp.Height - 1
                If Not bmp.GetPixel(x, y).Equals(mask) Then
                    gp.AddRectangle(New Rectangle(x, y, 1, 1))
                End If
            Next
        Next

        Dim pb As New PictureBox

        pb.Size = bmp.Size
        pb.Image = bmp
        pb.Region = New System.Drawing.Region(gp)

        Return pb
    End Function

Det er ikke lige helt det jeg søgte. Jeg har dog fundet en film på youtube hvor personen i videoen har lavet en knap hvor kun billedet på knappen kan trykkes på.

Det forklarer måske lidt bedre problemet.

http://www.youtube.com/watch?v=K_JzL4kzCoE

Det er faktisk lige det samme. :) At jeg så kalder det noget andet, er bare mit navn for det. :)

Men for lige at få det HELT på den rene: Bruger du vb6 ELLER vb.net????

Det gør en forskel. ;)

Ok, blev lige lidt forviret :)

Jeg bruger Visual studio, men kodesproget fungerer næsten på samme måde som vb6. Har brugt VB6.

...så du bruger altså vb.net...? :)

Hvilken version af Visual studio har du?

Visual studio 2013
Jeg bruger visual basic.

Jeg har fundet en løsning nu. Jeg skal bare ind og lave en class for hvert enkelt billede.

Tak for tiden og hjælpen.

Visual studio 2013 kommer IKKE med vb6, men med vb.net.

vb6 har ikke klasser...

Husk at oprette spørgsmål i vb.net kategorien næste gang. :)

Det er taget til efterretning.